使用VBA删除工作表多列中的重复行

Sub DeDupeCols()
    Dim rng As Range
    Dim i As Integer
    Dim Cols As Variant
    Set rng = [A1].CurrentRegion
    ReDim Cols(0 To rng.Columns.Count - 1)
    For i = 0 To UBound(Cols)
        Cols(i) = i + 1
    Next i
    rng.RemoveDuplicates Columns:=(Cols), Header:=xlYes
End Sub

Sub DeDupeColSpecific()
    Cells.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
End Sub