如何用VBA在Excel中实现自动递增标识符列

嘿，这个需求我平时处理Excel自动化时经常遇到，用VBA实现起来很直观，我给你两种实用的写法，你可以根据自己的场景选：

方法一：循环填充（适合新手理解逻辑） #

如果你的数据和A列（或者其他列）的行数一致，想让B列的ID和数据行一一对应，可以用这个循环的方式，逻辑清晰，容易修改：

Sub FillIncrementalIDs()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你实际要操作的工作表名称，比如"数据报表"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据列的最后一行行号——这里假设数据在A列，要是你的数据在其他列，把"A"改成对应列标
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从B2开始，依次填充1、2、3...直到数据最后一行
    For i = 2 To lastRow
        ws.Cells(i, "B").Value = i - 1  ' i是行号，减1是因为从B2开始对应第一个ID
    Next i
End Sub

代码说明： #

• 先指定要操作的工作表，避免误操作其他表；
• 自动获取数据的最后一行，不用手动数行数；
• 循环遍历每一行，给B列赋值递增数字。

方法二：快速填充序列（适合大数据量） #

如果你的数据行数很多（比如几千上万行），循环会有点慢，用Excel自带的序列填充功能更高效，代码更简洁：

Sub FillIDsFast()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 直接调用Excel的序列填充功能，一步完成
    ws.Range("B2:B" & lastRow).DataSeries _
        Rowcol:=xlColumns, _
        Type:=xlLinear, _
        Step:=1, _
        Stop:=lastRow - 1
End Sub

代码说明： #

• 本质是模拟你手动拖动填充柄的操作，但用代码自动完成；
• 速度比循环快很多，大数据量下优势明显。

怎么运行代码？ #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器；
2. 在左侧的项目窗口里，右键点击你的工作簿，选择「插入」→「模块」；
3. 把上面的代码粘贴到模块里，修改工作表名称为你实际的表名；
4. 点击编辑器工具栏的「运行」按钮（绿色三角），或者按下F5执行宏。

注意事项： #

• 如果B列已经有数据，运行代码后会被覆盖，建议先备份或者清空B列再运行；
• 要是你不需要和其他列行数匹配，而是固定填充到某一行，直接把lastRow改成固定数字就行，比如lastRow = 200，就会填充到B200；
• 如果你的标识符需要从其他数字开始（比如从100开始），把代码里的i - 1改成i + 98（因为B2对应100的话，2+98=100），或者在DataSeries的Stop参数里改成对应数值。

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