标题：宏基础：在Excel中遍历单元格的内容
出处：Felix021
时间：Tue, 22 Dec 2009 17:00:59 +0000
作者：felix021
地址：https://www.felix021.com/blog/read.php?1791

内容：
工具->宏->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"



Generated by Bo-blog 2.1.0