宏基础：在Excel中遍历单元格的内容

找相同，找不同：继续，再继续。

方便写代码的宏...

Dec 22

felix021 @ 2009-12-22 17:00 [IT » 软件] 评论(1) , 引用(0) , 阅读(9692) | Via 本站原创

大 | 中 | 小

工具->宏->Visual Basic编辑器，工程框中，右击Sheet1，插入模块，在模块1中加入如下代码

Sub iterate()
    Dim row, col, i, j As Integer
    Dim str, addr As String
    row = ActiveSheet.UsedRange.rows.Count
    col = ActiveSheet.UsedRange.Columns.Count
    MsgBox row & " " & col, vbOKOnly
    For i = 0 To row - 1
        For j = 0 To col - 1
            addr = Chr(65 + j) & Chr(i + 48 + 1)
            MsgBox Range(addr).Text
        Next
    Next
End Sub

如果需要修改单元格的内容：

Range(addr).Select
ActiveCell.FormulaR1C1 = "ooxx"

欢迎扫码关注：