基于Sheet1标识与Yes值删除Sheet2行的App Script需求

核心思路 #

1. 从Sheet1中提取所有标记为Yes的唯一标识，存入集合
2. 反向遍历Sheet2（从最后一行到表头行），检查每行唯一标识是否在上述集合内
3. 匹配成功则删除该行（反向遍历避免行号变动导致漏删/误删）

VBA实现代码 #

Sub DeleteMatchingRows()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim idCol1 As Integer, yesNoCol1 As Integer, idCol2 As Integer
    Dim lastRow1 As Long, lastRow2 As Long
    Dim deleteIds As Collection
    Dim i As Long
    
    ' 绑定工作表，可根据实际表名修改
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    ' 定义列位置：Sheet1唯一标识列、Yes/No列；Sheet2唯一标识列
    idCol1 = 1
    yesNoCol1 = 2
    idCol2 = 1
    
    ' 初始化集合存储需要删除的标识
    Set deleteIds = New Collection
    
    ' 遍历Sheet1，收集所有需删除的标识
    lastRow1 = ws1.Cells(ws1.Rows.Count, idCol1).End(xlUp).Row
    On Error Resume Next ' 忽略重复标识的添加报错
    For i = 2 To lastRow1 ' 假设第一行是表头，无表头则改为i=1
        If UCase(ws1.Cells(i, yesNoCol1).Value) = "YES" Then
            deleteIds.Add ws1.Cells(i, idCol1).Value, Key:=CStr(ws1.Cells(i, idCol1).Value)
        End If
    Next i
    On Error GoTo 0
    
    ' 遍历Sheet2删除匹配行（从下往上遍历）
    lastRow2 = ws2.Cells(ws2.Rows.Count, idCol2).End(xlUp).Row
    For i = lastRow2 To 2 Step -1 ' 无表头则改为i=lastRow2 To 1 Step -1
        On Error Resume Next
        deleteIds.Item(CStr(ws2.Cells(i, idCol2).Value))
        If Err.Number = 0 Then ' 找到匹配标识，删除该行
            ws2.Rows(i).Delete
        End If
        On Error GoTo 0
    Next i
    
    MsgBox "指定行删除完成！"
End Sub

使用步骤 #

1. 打开目标Excel文件，按下Alt+F11打开VBA编辑器
2. 右键点击工程窗口中的当前工作簿→选择「插入」→「模块」
3. 将上述代码粘贴到模块窗口中
4. 按下F5运行宏，或返回Excel界面，通过「开发工具」→「宏」选择DeleteMatchingRows执行

注意事项 #

• 运行前务必备份文件，防止误删数据
• 如果表格没有表头，需将代码中i=2的部分改为i=1
• 若唯一标识列位置不同，修改代码中idCol1、yesNoCol1、idCol2的数值即可
• 代码通过UCase统一转为大写判断，支持Yes/YES/yes等多种大小写格式

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