在 Excel 中使用 VBA 自动递增列

Question

我有一个由我创建的程序生成的 Excel 文件，用于从数据库中读取数据并将其放入 excel 文件中。 我的 Excel 工作表中有第二列作为标识符列。 它应该从 B2 以 1 开始，然后在 B3 中以 2 B4、3 等开始。我如何自动执行此操作？

Answer 1

以下代码将根据 A2 中 A 列的行号递增 +1，并将结果打印在 B2 上。 如果您希望在宏中触发它，您可以从宏中调用sub 或将代码添加到宏中。

Option Explicit

Sub test()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim LastRow As Long
    Dim i As Long

    With ws
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 2 To LastRow
            .Cells(i, 2).Value = i - 1
        Next
    End With
End Sub