如何使用Excel VBA实现相邻单元格非空时对应行自动编号

原有两段代码的逻辑是直接对A3到B列最后一行的整段区域填充连续序号，没有跳过B列为空的行，因此无法实现「仅B列非空时对应行填充编号」的需求。

以下是适配需求的优化实现：

版本1：逐行遍历（逻辑易懂，适合小数据量场景） #

Sub Fill_Serial_Numbers_By_NonEmpty_B()
    Dim LastRow As Long, i As Long, serialNum As Long
    ' 获取B列最后一个有数据的行号
    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
    ' 初始化序号
    serialNum = 0
    ' 从第3行开始遍历，和原有代码逻辑保持一致
    For i = 3 To LastRow
        ' 去除首尾空格后判断B列当前行是否非空
        If Trim(Cells(i, "B").Value) <> "" Then
            serialNum = serialNum + 1
            Cells(i, "A").Value = serialNum
        Else
            ' B列为空时A列同步清空
            Cells(i, "A").Value = ""
        End If
    Next i
End Sub

版本2：批量公式计算（运行效率高，适合万行以上大数据量场景） #

Sub Fill_Serial_Numbers_NoLoop()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
    If LastRow > 2 Then
        ' 批量计算跳过空行生成序号，无需逐行遍历
        Range("A3:A" & LastRow).Value = Evaluate("IF(B3:B" & LastRow & "<>"""",COUNTIF(B3:B" & LastRow & ",""<>"")-COUNTIF(OFFSET(B3:B" & LastRow & ",0,0,ROW(B3:B" & LastRow & ")-2),""""),"""")")
    End If
End Sub

预期效果验证 #

使用说明 #

• 两个版本默认都从第3行开始处理，和你原有代码逻辑保持一致，如需调整起始行，修改对应循环起始值或公式中的行号参数即可
• 均支持自动跳过B列空行，仅给非空行对应A列填充连续序号

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