vba - 如何在每个循环中获取单元格的行号

Question

我有一个这样的 for each 循环:

Dim rCell as range
Dim Searchrange as range
Set Searchrange = wss.Range("B12:B36") 'where wss is a defined worksheet
For Each rCell in SearchRange
    'do some stuff
    'get the row number of the worksheetrow rCell is currently refering to
Next rCell

如何从 wss. 的原始工作表 ( rCell ) 中获取行号目前持有的值(value)是？

Answer 1

我可以想象有 2 个不同的“行号”:

工作表中的绝对行号

相对于 Searchrange 的行号

例子:

Dim SearchRange As Range
Set SearchRange = wss.Range("B12:B36") 'where wss is a defined worksheet

Dim rCell As Range
For Each rCell in SearchRange
    'Absolute row number in the worksheet
    Debug.Print rCell.Row                          'returns 12, 13, 14, … 36

    'Row number relative to the SearchRange
    Debug.Print rCell.Row - Searchrange.Row + 1    'returns 1, 2, 3, … 25
Next rCell