Question

我搜索了一下VBA代码，它会列出一行参考，但我找不到结果。也许我错过了它的实际用语是什么？

我在A列中有一个名单，从A2开始。那么我想要的是从B2开始向列B的1,2,3,4,5的列表，直到名称停止。

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

可以这样做吗？

Answer 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

Answer 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

带VBA的行号参考

2 个答案: