编写VBA代码：按Sheet2列表删除Sheet1对应重复行（限次数）

针对你需要按Sheet2中重复行的出现次数，对应删除Sheet1内匹配行的需求，以下是修改后的VBA代码方案：

核心思路 #

1. 统计Sheet2的行重复次数：用字典存储每行的唯一标识（将匹配列内容拼接为字符串），记录每行出现的次数
2. 逆向遍历Sheet1删除行：从最后一行往上遍历，避免删除行后导致后续行号偏移漏处理；匹配到字典中存在且计数>0的行时，删除该行并减少对应计数

修改后的完整代码 #

Sub Delete_Repeats_Macro()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rowCountDict As Object
    Dim lastRowSheet1 As Long, lastRowSheet2 As Long
    Dim currentRow As Long, colIndex As Long
    Dim rowKey As String
    
    ' 指定目标工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    ' 创建字典用于统计行出现次数（无需额外引用库）
    Set rowCountDict = CreateObject("Scripting.Dictionary")
    
    ' 获取Sheet2数据的最后一行（假设数据从B3开始，匹配列是B-E）
    lastRowSheet2 = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row
    
    ' 遍历Sheet2，统计每行的出现次数
    For currentRow = 3 To lastRowSheet2
        rowKey = ""
        ' 拼接B到E列的内容作为行的唯一标识
        For colIndex = 2 To 5
            rowKey = rowKey & "|" & ws2.Cells(currentRow, colIndex).Value
        Next colIndex
        ' 更新字典计数
        If rowCountDict.Exists(rowKey) Then
            rowCountDict(rowKey) = rowCountDict(rowKey) + 1
        Else
            rowCountDict(rowKey) = 1
        End If
    Next currentRow
    
    ' 获取Sheet1数据的最后一行
    lastRowSheet1 = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row
    
    ' 从下往上遍历Sheet1，删除匹配的行
    For currentRow = lastRowSheet1 To 3 Step -1
        rowKey = ""
        For colIndex = 2 To 5
            rowKey = rowKey & "|" & ws1.Cells(currentRow, colIndex).Value
        Next colIndex
        ' 匹配到且还有删除次数时，执行删除并减少计数
        If rowCountDict.Exists(rowKey) And rowCountDict(rowKey) > 0 Then
            ws1.Rows(currentRow).Delete
            rowCountDict(rowKey) = rowCountDict(rowKey) - 1
        End If
    Next currentRow
    
    ' 释放对象
    Set rowCountDict = Nothing
    Set ws1 = Nothing
    Set ws2 = Nothing
    
    MsgBox "按指定次数删除重复行完成！"
End Sub

关键说明 #

• 数据范围适配：如果你的数据起始行不是B3，或者匹配列不是B-E，修改代码中的3（起始行号）和2 To 5（列号范围）即可
• 唯一标识分隔符：用|作为内容拼接的分隔符，避免不同列内容拼接后产生歧义（比如"AB"+"C"和"A"+"BC"会被误判为同一行）
• 字典兼容性：使用CreateObject("Scripting.Dictionary")无需手动添加引用，在不同Excel版本中都能正常运行
• 逆向遍历逻辑：从最后一行往上删是必须的，否则删除某行后，下方的行会上移，导致后续遍历跳过部分行

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