对比Excel两工作表并删除匹配整行：部分项未删除的技术问题

这种部分匹配行没被删除的坑我踩过好多次！大概率是你删除行时的循环方向搞反了，咱们一步步捋清楚：

当你用For i = 1 To lastRow这种从上到下的循环逻辑时，一旦删除第i行，原来的第i+1行会自动往上补位变成新的第i行，但循环会直接跳到i+1，相当于直接跳过了这行新补位的数据——这就是你6个匹配项只删了4个的原因！

正确的做法是从最后一行往第一行倒序遍历，这样删除操作不会影响还没遍历到的行号。下面是经过验证的完整VBA代码：

Sub DeleteMatchingRows()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long
    Dim i As Long, j As Long
    Dim isMatch As Boolean
    
    ' 绑定工作表对象（替换成你实际的表名）
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取两表的最后数据行号
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "E").End(xlUp).Row
    
    ' 从下往上遍历目标表（假设第1行是表头，从第2行开始处理）
    For i = lastRowTarget To 2 Step -1
        isMatch = False
        ' 遍历源表的物料编号找匹配
        For j = 2 To lastRowSource
            If wsTarget.Cells(i, "E").Value = wsSource.Cells(j, "A").Value Then
                isMatch = True
                Exit For ' 找到匹配就跳出内层循环，节省时间
            End If
        Next j
        
        ' 匹配成功则删除整行
        If isMatch Then
            wsTarget.Rows(i).Delete
        End If
    Next i
    
    MsgBox "匹配行删除完成！"
End Sub

如果你的数据量很大，或者Sheet2里有重复的物料编号，双层循环的效率会很低。可以用Dictionary对象先把Sheet1的物料编号存起来，实现快速匹配：

Sub DeleteMatchingRowsWithDict()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long
    Dim i As Long
    Dim materialDict As Object
    
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    Set materialDict = CreateObject("Scripting.Dictionary")
    
    ' 把Sheet1的物料编号存入字典（自动去重，避免重复检查）
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRowSource
        If Not materialDict.Exists(wsSource.Cells(i, "A").Value) Then
            materialDict.Add wsSource.Cells(i, "A").Value, True
        End If
    Next i
    
    ' 倒序遍历Sheet2删除匹配行
    lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "E").End(xlUp).Row
    For i = lastRowTarget To 2 Step -1
        If materialDict.Exists(wsTarget.Cells(i, "E").Value) Then
            wsTarget.Rows(i).Delete
        End If
    Next i
    
    MsgBox "匹配行删除完成！"
End Sub

不管Sheet2里有多少个重复的匹配编号，倒序遍历的逻辑都能全部删除——因为每一行都会被单独检查，不会因为前面的行删除导致后续行被跳过。

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