|
发表于 2017-10-16 10:01
|
显示全部楼层
本楼为最佳答案
- Sub 宏1() '这个是录制宏
- ActiveSheet.Range("$A$1:$A$231").RemoveDuplicates Columns:=1, Header:=xlYes
- End Sub
- Sub tt() '用宏套循环,就用这个运行
- Dim col As Integer, i As Integer
- col = ActiveSheet.UsedRange.Columns.Count '共有多少列
- For i = 1 To col '循环去重复
- ActiveSheet.Range(Cells(1, i), Cells(65536, i)).RemoveDuplicates Columns:=1, Header:=xlYes
- Next
- End Sub
复制代码
|
|