Question

我正在尝试从我的表中删除重复的行，我认为这很简单，在线查看其他示例。不幸的是，我的变量出现类型不匹配错误。另外，我希望删除底部的第一个实例而不是第一个实例。因此，如果第5行和第27行是重复的，我希望删除第27行。

这是我的代码：

Sub DeleteDuplicateRows()

Dim Rng As Range
With Worksheets("Database")

Set Rng = Range("C1", Range("Q1").End(xlDown))
    Rng.RemoveDuplicates Columns:=Array(3, 17), Header:=xlYes
End With

End Sub

Answer 1

数组（1,15）是C列，Q列范围C：Q。

Sub DeleteDuplicateRows()
    Dim Rng As Range

    With Worksheets("Database")
        Set Rng = .Range("C1", .Range("Q1").End(xlDown))
        Rng.RemoveDuplicates Columns:=Array(1, 15), Header:=xlYes
    End With
End Sub

VBA删除重复记录Excel

1 个答案: