excel vba-如何增加单元格地址？

find函数返回一个地址为$a$1的范围

如何递增并使用它打印单元格B1的值？

使用.Offsetx，y返回向下x个单位，向右y个单位的单元格

比如说

Range("A1").Offset(0, 1)   => Range("B1")

另外请注意，还有.Resizex，y，用于获取单个单元格，并使其成为包含x行和y列的表格

最后，使用.Cellsx，y将单元格视为一个表。因此，要从A1开始读取10行，请执行以下操作

For i = 1 to 10
    x = Range("A1").Cells(i,1).Value
    Debug.Print x
Next i

For i = 1 to 10
    x = Range("A1").Cells(i,1).Value
    Debug.Print x
Next i