Excel RPG敌群遭遇清单：批量修改带数据验证单元格值的需求

理想方案：标记单个编队为✔后，其余同编队自动设为R #

通过VBA工作表事件实现，步骤如下：

1. 按Alt+F11打开VBA编辑器
2. 在左侧「工程资源管理器」中找到目标工作表，双击打开代码窗口
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim cell As Range
    Dim targetFormation As String
    Dim targetValue As String
    
    Set ws = Target.Parent
    ' 仅处理A列单个单元格的修改
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        targetValue = Target.Value
        targetFormation = ws.Cells(Target.Row, 2).Value
        
        ' 当当前单元格被标记为✔时执行批量修改
        If targetValue = "✔" Then
            Application.EnableEvents = False ' 禁用事件避免循环触发
            
            ' 遍历B列所有数据行（假设第1行是表头，数据从第2行开始）
            For Each cell In ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
                If cell.Value = targetFormation And cell.Row <> Target.Row Then
                    ws.Cells(cell.Row, 1).Value = "R"
                End If
            Next cell
            
            Application.EnableEvents = True ' 重新启用事件
        End If
    End If
End Sub

代码说明 #

• 仅监听A列的单个单元格修改操作，避免误触发
• 获取当前标记行对应的B列编队名称，遍历所有同编队的行，将除当前行外的A列单元格设为R
• 禁用事件是为了防止批量修改时再次触发Worksheet_Change事件，造成循环

备选方案：标记单个编队为✔后，所有同编队自动设为✔ #

只需修改理想方案代码中的赋值部分，将"R"替换为"✔"即可，完整代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim cell As Range
    Dim targetFormation As String
    Dim targetValue As String
    
    Set ws = Target.Parent
    ' 仅处理A列单个单元格的修改
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        targetValue = Target.Value
        targetFormation = ws.Cells(Target.Row, 2).Value
        
        ' 当当前单元格被标记为✔时执行批量修改
        If targetValue = "✔" Then
            Application.EnableEvents = False ' 禁用事件避免循环触发
            
            ' 遍历B列所有数据行（假设第1行是表头，数据从第2行开始）
            For Each cell In ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
                If cell.Value = targetFormation Then
                    ws.Cells(cell.Row, 1).Value = "✔"
                End If
            Next cell
            
            Application.EnableEvents = True ' 重新启用事件
        End If
    End If
End Sub

注意事项 #

1. 若你的数据表头不是第1行，需修改代码中的B2:B为实际起始行（比如数据从第3行开始就写B3:B）
2. 保存文件时需选择.xlsm格式（启用宏的工作簿）
3. 打开文件时需允许启用宏，否则代码无法运行
4. 原A列的数据验证下拉列表无需修改，VBA会直接修改单元格值，与下拉选择兼容

内容的提问来源于stack exchange，提问作者A Name You Can't Remember