求助：用VBA实现基于多列匹配删除Copy工作簿中的重复行

前置准备 #

• 提前打开"Master"和"Copy"两个目标工作簿
• 务必先备份两个文件，防止误操作丢失数据

完整VBA代码 #

Sub DeleteMatchingRows()
    Dim masterWB As Workbook, copyWB As Workbook
    Dim masterWS As Worksheet, copyWS As Worksheet
    Dim lastRowMaster As Long, lastRowCopy As Long
    Dim i As Long, j As Long
    Dim matchFound As Boolean
    
    ' 引用打开的工作簿和工作表（如果工作表不是Sheet1，自行修改名称）
    Set masterWB = Workbooks("Master.xlsx") ' 若为xls格式，修改后缀即可
    Set copyWB = Workbooks("Copy.xlsx")
    Set masterWS = masterWB.Worksheets("Sheet1")
    Set copyWS = copyWB.Worksheets("Sheet1")
    
    ' 获取两个表的最后一行行号
    lastRowMaster = masterWS.Cells(Rows.Count, "A").End(xlUp).Row
    lastRowCopy = copyWS.Cells(Rows.Count, "D").End(xlUp).Row
    
    ' 倒序循环Copy表（避免删除行后行号错乱）
    For i = lastRowCopy To 2 Step -1 ' 假设第1行是表头，从第2行开始检查
        matchFound = False
        ' 遍历Master表找匹配
        For j = 2 To lastRowMaster ' 同样假设Master表第1行是表头
            ' 四个匹配条件：Copy的D=Master的A，Copy的O=Master的C，Copy的R=Master的G，Copy的S=Master的H
            If copyWS.Cells(i, "D").Value = masterWS.Cells(j, "A").Value And _
               copyWS.Cells(i, "O").Value = masterWS.Cells(j, "C").Value And _
               copyWS.Cells(i, "R").Value = masterWS.Cells(j, "G").Value And _
               copyWS.Cells(i, "S").Value = masterWS.Cells(j, "H").Value Then
                matchFound = True
                Exit For ' 找到匹配就跳出内层循环
            End If
        Next j
        
        ' 匹配成功则删除当前行
        If matchFound Then
            copyWS.Rows(i).Delete
        End If
    Next i
    
    MsgBox "重复行删除完成！"
End Sub

新手必看提示 #

1. 工作表名称修改：如果你的两个文件里的工作表不是Sheet1，把代码里的"Sheet1"改成实际的工作表名称（比如"数据清单"）
2. 表头适配：如果表格没有表头，把循环里的To 2改成To 1
3. 倒序循环的必要性：正序删除行时，后面的行会自动上移，导致跳过部分行；倒序循环可以完全避免这个问题
4. 文件格式适配：如果是.xls格式，把代码里的.xlsx后缀改成.xls

操作步骤 #

1. 打开两个目标工作簿
2. 按Alt + F11打开VBA编辑器
3. 右键点击左侧的VBAProject，选择插入→模块
4. 粘贴上述代码到模块中
5. 按F5运行代码，或点击编辑器顶部的运行按钮

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