灵活删除重复项-VBPivotSumCount

  VBA中调用删除重复项的代码（不适用于Excel2003等低版本）

Range("$C$1:$D$20").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

调用VBPivotSumCount其实也能实现类似功能。

调用代码

Sub 调用示例3()       Dim arr As Variant, brr(0 To 1) As Variant, Crr As Variant       Dim i As Long       arr = Sheets("资料1").Range("A1:A20")       Sheets("资料1").Range("A2:A20") = PivotSumCount(arr, Array(1), Array(), Array())       Crr = Sheets("资料1").Range("C1:D20")       For i = 0 To 1               brr(i) = i + 1       Next i       Sheets("资料1").Range("C2:D20") = PivotSumCount(Crr, brr, Array(), Array())End Sub

执行后效果

缺点是不能携带原有格式,比如原背景颜色等，优点是可以提取存到其他位置，比如跨表