如何用VBA实现Sheet1任意列输入内容时自动生成A列序列号？

问题背景 #

用户的Excel工作表Sheet1初始结构如下：

原VBA代码仅在ColumnB输入内容时，为ColumnA生成对应行序列号：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim count As Long
count=Application.WorksheetFunction.CountA(Sheet1.Range("B:B"))
For i = 1 to count
Sheet1.Range("A" & i + 1).Value = i
Next i
End sub

用户需求：修改代码，实现只要在工作表任意列输入内容，就自动为ColumnA生成连续序列号。

可行代码方案 #

替换原代码为以下内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取工作表最后一行有内容的行号
    lastRow = Me.Cells(Rows.Count, "A").End(xlUp).Row
    ' 从表头下一行（第2行）遍历到最后一行
    For i = 2 To Me.Cells(Rows.Count, 1).End(xlUp).Row
        ' 检查当前行除A列外是否有非空内容
        If Application.WorksheetFunction.CountA(Me.Rows(i).Columns("B:XFD")) > 0 Then
            ' 若A列为空则生成连续序列号
            If Me.Cells(i, "A").Value = "" Then
                Me.Cells(i, "A").Value = i - 1
            End If
        Else
            ' 若整行除A列外无内容，清空A列序列号
            Me.Cells(i, "A").Value = ""
        End If
    Next i
End Sub

代码说明 #

• 改用Worksheet_Change事件：替代原代码的SelectionChange，仅在单元格内容实际修改时触发，避免不必要的执行。
• 动态判断行内容：检查当前行除A列外的所有列是否有内容，以此决定是否生成序列号。
• 保持序列连续性：行内有内容时自动生成从1开始的连续序列号，若行内内容被清空则同步删除对应A列的序列号，避免断号或冗余。

内容的提问来源于stack exchange，提问作者Jimmy