Question

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

Answer 1

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

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

在Excel中使用VBA自动增加列

1 个答案: