excel - 如何在循环访问一系列单元格时获取当前单元格编号(Excel VBA)

Question

我试图在循环访问一系列单元格的同时获取当前的单元格编号。

For Each i In Sheet3.Range("A3:A213")

  msgbox(Sheet3.Range("B"&currentcellnumberinloop).Value)

Next

这样做的目的是从同一行中的另一个单元格检索值，例如A1 和 B1。

Answer 1

i 可能被声明为 Range 对象(或 Variant)。因此，要获取行号并检索相邻 B 列中的值，您必须调用 i 对象的 .Row 方法

Sub ForEachAndFor()

    Dim i As Range

    For Each i In Sheet3.Range("A3:A213")
        MsgBox Sheet3.Range("B" & i.Row).Value
    Next

End Sub

您还可以使用Offset(how_many_rows_up_or_down, how_many_columns_left_or_right)

用正数表示向下的行，用负数表示向上的行

同样适用于列，使用 - 导航到当前单元格的左侧，使用正数导航到当前单元格的右侧。

Sub ForEachSub()

    Dim i as Range

    For Each i in Sheet3.Range("A3:A213")
        MsgBox i.Offset(0, 1).Value
    next i 

End Sub