基于另一工作表条件删除指定行的VBA代码实现需求

前提假设（根据你的实际情况修改） #

• 存储标记的工作表名为标记表：A列是ID，B列是删除标记（填写"Y"表示对应ID需要删除）
• 存储数据的工作表名为数据表：A列是需要匹配的ID列

完整代码 #

Sub DeleteRowsByDynamicID()
    Dim wsMark As Worksheet, wsData As Worksheet
    Dim deleteIDs As Collection
    Dim lastRowMark As Long, lastRowData As Long
    Dim i As Long
    Dim currentID As String
    Dim rowsToDelete As Range
    
    ' 指定工作表（请修改为你的实际表名）
    Set wsMark = ThisWorkbook.Worksheets("标记表")
    Set wsData = ThisWorkbook.Worksheets("数据表")
    Set deleteIDs = New Collection
    
    ' 收集所有标记为"Y"的ID（自动去重）
    lastRowMark = wsMark.Cells(wsMark.Rows.Count, "A").End(xlUp).Row
    On Error Resume Next ' 忽略重复ID的添加错误
    For i = 2 To lastRowMark ' 假设第1行是表头，从第2行开始读取数据
        If UCase(wsMark.Cells(i, "B").Value) = "Y" Then
            deleteIDs.Add wsMark.Cells(i, "A").Value, Key:=CStr(wsMark.Cells(i, "A").Value)
        End If
    Next i
    On Error GoTo 0 ' 恢复默认错误处理
    
    ' 无待删除ID时直接退出
    If deleteIDs.Count = 0 Then
        MsgBox "没有需要删除的ID", vbInformation
        Exit Sub
    End If
    
    ' 遍历数据表，收集需要删除的行
    lastRowData = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row
    ' 从下往上遍历：避免删除行后后续行索引错位
    For i = lastRowData To 2 Step -1
        currentID = wsData.Cells(i, "A").Value
        ' 检查当前ID是否在待删除列表中
        On Error Resume Next
        deleteIDs.Item(CStr(currentID))
        If Err.Number = 0 Then ' 找到匹配的ID
            If rowsToDelete Is Nothing Then
                Set rowsToDelete = wsData.Rows(i)
            Else
                Set rowsToDelete = Union(rowsToDelete, wsData.Rows(i))
            End If
        End If
        On Error GoTo 0
    Next i
    
    ' 执行批量删除
    If Not rowsToDelete Is Nothing Then
        rowsToDelete.Delete Shift:=xlUp
        MsgBox "已成功删除 " & rowsToDelete.Rows.Count & " 行数据", vbInformation
    Else
        MsgBox "数据表中没有匹配的待删除ID", vbInformation
    End If
    
    ' 释放内存
    Set wsMark = Nothing
    Set wsData = Nothing
    Set deleteIDs = Nothing
    Set rowsToDelete = Nothing
End Sub

代码核心要点说明 #

1. 高效收集ID：用Collection存储待删除ID，自动去重，避免重复处理同一ID
2. 反向遍历防错位：从数据表最后一行往表头方向遍历，解决删除行后后续行索引偏移的问题
3. 批量删除提升性能：用Union把所有待删除行合并后一次性删除，比逐行删除效率高很多，适合大数据量场景
4. 容错处理：加入错误捕获，避免重复ID、空值等情况导致程序崩溃

使用步骤 #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 右键点击左侧工作簿名称 → 插入 → 模块
3. 将上述代码粘贴到模块中，修改标记表和数据表为你的实际工作表名称
4. 按F5运行代码，或回到Excel界面，点击「开发工具」→「宏」→ 选择DeleteRowsByDynamicID执行

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