我试图获取当前的单元格编号，同时循环通过一系列单元格。
For Each i In Sheet3.Range("A3:A213")
msgbox(Sheet3.Range("B"¤tcellnumberinloop).Value)
Next
这样做的目的是从同一行中的另一个单元格（例如A1和B1）中检索一个值。
在i可能是声明为Range对象（或变体）。因此，要获取行号并检索相邻B列中的值，您必须调用对象的.Row方法i
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
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句