行号参考与VBA

我已经search了一点VBA代码，将列出我的行参考，并没有find结果。 也许我错过了它的实际名词是什么？

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

我可以做这个作为一个公式，但在这种情况下，需要由macros设置的值。

可以这样做吗？

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