如何在Excel中自动化基于TRUE/FALSE列生成递增事件编号？

方法一：公式法（无需宏，操作简单） #

假设你的NewEvent列在A列，要生成的EventNum列在B列（第1行是表头，数据从第2行开始）：

1. 选中B2单元格，输入以下公式：
   =IF(A2=TRUE,IF(ROW()=2,1,B1+1),B1)
2. 将鼠标移到B2单元格右下角，待光标变成十字后，按住左键下拉填充至所有数据行。

公式逻辑：

• 当A列单元格为TRUE时，若当前是第2行（首条数据）则编号为1，否则在上一个编号基础上加1
• 当A列单元格为FALSE时，直接继承上一行的事件编号

方法二：VBA宏法（适合5万行以上大数据，效率更高） #

1. 打开你的Excel文件，按Alt+F11打开VBA编辑器
2. 在左侧工程窗口右键点击当前工作簿，选择「插入」→「模块」
3. 将以下代码粘贴到模块窗口中：

Sub AssignEventNumbers()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim eventNum As Integer
    Dim i As Long
    
    ' 替换为你的工作表名称，比如"相机陷阱数据"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取NewEvent列（A列）的最后一行数据行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    eventNum = 0
    
    ' 从第2行开始遍历数据（第1行是表头）
    For i = 2 To lastRow
        ' 遇到TRUE时编号递增
        If ws.Cells(i, "A").Value = True Then
            eventNum = eventNum + 1
        End If
        ' 将编号写入EventNum列（B列）
        ws.Cells(i, "B").Value = eventNum
    Next i
    
    MsgBox "事件编号生成完成！"
End Sub

4. 修改代码中的工作表名称和列号（如果你的NewEvent不在A列、EventNum不在B列，替换代码里的"A""B"为对应列字母）
5. 回到Excel界面，按Alt+F8，选中AssignEventNumbers后点击「执行」即可完成编号

注意事项 #

• 操作前建议先备份原始数据，避免意外错误
• 若数据量极大，VBA宏的运行速度会比公式填充更快

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