删除动态行和列范围中的重复项

Question

如何允许动态范围？

以下是我在Excel中记录的示例宏：

Sub Macro1()
'
' Macro1 Macro
'

'
Cells.Select
ActiveSheet.Range("$A$1:$C$87").RemoveDuplicates Columns:=Array(1, 2, 3), _
Header:=xlNo
End Sub

如何编辑它以允许不同的行数和列数？

Answer 1

不知道您的数据如何组织：

ActiveSheet.Range("A1").CurrentRegion.RemoveDuplicates _
                      Columns:=Array(1, 2, 3), _ Header:=xlNo

Answer 2

只需使用：

ActiveSheet.Columns(1).Resize(, 3).RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo

或者

ActiveSheet.UsedRange.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo