Excel VBA删除重复记录：类型不匹配报错及保留底部首个实例需求

嘿，我来帮你搞定这两个问题！先解决你遇到的变量类型不匹配错误，再搞定删除底部重复行的需求。

一、修复变量类型不匹配错误 #

你的代码里的Range引用没有绑定到指定的Database工作表，导致当活动工作表不是Database时，会出现引用错误或类型不匹配。修正很简单，在With Worksheets("Database")块里，所有Range前面加上.，让它绑定到当前With块的工作表：

Sub DeleteDuplicateRows()
    Dim Rng As Range
    With Worksheets("Database")
        ' 加上.，确保引用的是Database工作表的Range
        Set Rng = .Range("C1", .Range("Q1").End(xlDown))
        ' 后续代码...
    End With
End Sub

这一步能直接解决你遇到的变量类型不匹配问题，因为现在Rng明确指向了Database工作表的区域，而不是活动工作表的。

二、删除底部的重复实例（保留顶部，删除后续重复） #

默认的RemoveDuplicates方法会保留第一个出现的实例（顶部行），删除后面的，但你需要的是删除底部的重复（比如行5和行27重复时删行27），这里有两种靠谱的方法：

方法1：倒序排序+RemoveDuplicates（高效适合大数据） #

思路是先把数据按行号倒序排列，这样原来的底部重复行变成“先出现”的，用RemoveDuplicates删除重复后，剩下的就是原来的顶部行，最后再恢复原顺序：

Sub DeleteBottomDuplicates()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    Dim helperCol As Range
    
    Set ws = ThisWorkbook.Worksheets("Database")
    lastRow = ws.Range("Q1").End(xlDown).Row
    
    ' 1. 添加辅助列，记录原始行号（用于恢复顺序）
    Set helperCol = ws.Range("R1:R" & lastRow)
    helperCol.Value = ws.Evaluate("ROW(1:" & lastRow & ")")
    
    ' 2. 定义要检查重复的区域（包含辅助列）
    Set dataRange = ws.Range("C1:R" & lastRow)
    
    ' 3. 按数据列（C-Q）升序，辅助列降序排序——让底部重复行排在前面
    dataRange.Sort _
        Key1:=ws.Range("C1"), Order1:=xlAscending, _
        Key2:=ws.Range("R1"), Order2:=xlDescending, _
        Header:=xlYes ' 如果你的数据没有表头，改成xlNo
    
    ' 4. 删除重复，保留第一个出现的（现在第一个是原来的底部行，删除后剩下顶部行）
    dataRange.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15), _
        Header:=xlYes ' Columns对应C-Q列（共15列，索引1到15）
    
    ' 5. 按辅助列恢复原始顺序
    dataRange.Sort Key1:=ws.Range("R1"), Order1:=xlAscending, Header:=xlYes
    
    ' 6. 删除辅助列
    helperCol.EntireColumn.Delete
End Sub

方法2：从下往上循环检查（直观适合小数据） #

如果数据量不大，从最后一行往上遍历，检查当前行是否在上面的行中有完全重复的，有就删除：

Sub DeleteBottomDuplicates_Loop()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim isDuplicate As Boolean
    
    Set ws = ThisWorkbook.Worksheets("Database")
    lastRow = ws.Range("Q1").End(xlDown).Row
    
    ' 从最后一行往上遍历，避免删除行导致索引混乱
    For i = lastRow To 2 Step -1
        ' 检查当前行（i行）是否在1到i-1行中有完全重复的
        If Application.WorksheetFunction.CountIfs( _
            ws.Range("C:C"), ws.Range("C" & i), _
            ws.Range("D:D"), ws.Range("D" & i), _
            ws.Range("E:E"), ws.Range("E" & i), _
            ws.Range("F:F"), ws.Range("F" & i), _
            ws.Range("G:G"), ws.Range("G" & i), _
            ws.Range("H:H"), ws.Range("H" & i), _
            ws.Range("I:I"), ws.Range("I" & i), _
            ws.Range("J:J"), ws.Range("J" & i), _
            ws.Range("K:K"), ws.Range("K" & i), _
            ws.Range("L:L"), ws.Range("L" & i), _
            ws.Range("M:M"), ws.Range("M" & i), _
            ws.Range("N:N"), ws.Range("N" & i), _
            ws.Range("O:O"), ws.Range("O" & i), _
            ws.Range("P:P"), ws.Range("P" & i), _
            ws.Range("Q:Q"), ws.Range("Q" & i)) > 1 Then
            ws.Rows(i).Delete ' 删除当前重复行
        End If
    Next i
End Sub

注意事项 #

• 如果你的数据没有表头，记得把代码里的Header:=xlYes改成Header:=xlNo
• 方法1适合大数据量，因为Sort和RemoveDuplicates是Excel内置的高效方法；方法2更直观，适合数据量小的场景，容易调试

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