使用 VBA 引用行号答案

【问题标题】：Row Number reference with VBA使用 VBA 引用行号
【发布时间】：2015-07-01 19:24:09
【问题描述】：

我搜索了一些 VBA 代码，该代码将列出我的行引用，但没有找到结果。也许我错过了它的实际术语是什么？

我在 A 列中有一个名称列表，从 A2 开始。然后我想要的是从 B2 开始，从 B2 开始，直到名称停止的 1、2、3、4、5 的列表。

我可以将其作为公式执行，但在这种情况下需要通过宏在那里设置值。

这个可以吗？

【问题讨论】：

标签： vba excel

【解决方案1】：

如果我理解正确，那么这应该可以：

Sub test()

    Dim lastRow As Long, counter As Long
    Dim cell As Range
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("NAME_OF_YOUR_WORKSHEET")

    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    counter = 1
    For Each cell In ws.Range("B2:B" & lastRow)
        cell.Value = counter
        counter = counter + 1
    Next cell

End Sub

【讨论】：

非常感谢@Quantum

【解决方案2】：

不需要循环：

Sub NumberRows()

With Sheets("Sheet Name Here")
    With .Range("B2:B" & .Cells(.Rows.Count, 1).End(xlUp).Row)
        .Formula = "=ROW()-1"
        .Value = .Value
    End With
End With

End Sub

【讨论】：