Question

excel中删除重复项 vba代码问题

关于excel 删除重复项 把一个工作簿里多列（列数是变化的）条件的重复项， 可是我写的如下代码怎么只根据第一列删除重复项呢？
Sub 删除重复项()

Dim t As Integer, arr() As Integer, i As Integer, t1 As Long
t = Application.WorksheetFunction.CountA(Range("1:1"))
t1 = Application.WorksheetFunction.CountA(Range("C:C"))
ReDim arr(t)
For i = 0 To t - 1
arr(i) = i + 1
Next
ActiveSheet.Range(Cells(1, 1), Cells(t1, t)).RemoveDuplicates Columns:=Evaluate(arr), Header:=xlYes

End Sub

Answer 1

 对于删除重复数据，Excel 2007中有一个功能可以删除，不需要VBA编程。

方法：

选中重复数据出现的单元格区域→“菜单”栏→“数据”→“删除重复项”→点击“确定”即可

如图：

Answer 2

t = Application.WorksheetFunction.CountA(Range("1:1"))
t1 = Application.WorksheetFunction.CountA(Range("C:C"))
改为：
t = Application.WorksheetFunction.CountA("1:1")
t1 = Application.WorksheetFunction.CountA("C:C")

追问

谢谢你的帮忙。

Answer 3

试下这个？
Sub 删除重复项()
Dim t&, t1&
t = Range("A1").End(xlToRight).Column
t1 = Range("A65536").End(xlUp).Row
Range("A1", Cells(t1, t)).RemoveDuplicates
End Sub

追问

我试过了，参数columns省略的话，运行与没运行没分别。
不过问题我自己解决了，非常感谢，附上我的答案以共享：
将我原有代码以下两句作修改便可：
ReDim arr(Evaluate(t ))

ActiveSheet.Range(Cells(1, 1), Cells(t1, t)).RemoveDuplicates Columns:=arr(Evaluate(t )), Header:=xlYes
End Sub

追答

OK,学习了。

追问

对不起，其实我昨天修改的代码也有问题。问题还是在COLUMN参数传递问题。不过，后来我用函数调用才可以。非常感谢你的帮忙。