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

我如何允许dynamic范围？

这里是我正在使用的Excel中logging的示例macros：

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.Columns(1).Resize(, 3).RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo 

要么

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

Answer 2

不知道你的数据是如何组织的：

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