数据--删除重复值,很简单
只是在删除的时候有所选择,如果只想删除某一列的重复值,那么在删除重复值的对话框里,只选择那一列即可。
如果要删除某两列连接一起的重复值,就要勾选那两列
……
如果要删除所有行连接起来的重复值,则选择所有列。
以下表为例,试试选择不同的列,看是什么效果。
'按ALT+F11-插入-模块-粘贴代码-将表格另存为启用宏的格式(xlsm)
Sub 去重()
Dim brr, arr
Set dic = CreateObject("scripting.dictionary")
b = Range("a1").End(xlToRight).Column
For i = 1 To b
For j = 1 To Cells(1, i).End(xlDown).Row
a = a & " " & Cells(j, i)
Next
Next
arr = Split(Mid(a, 2), " ")
For k = 0 To UBound(arr)
dic(arr(k)) = vbNullString
Next
arr = dic.keys
arr = Application.Transpose(arr)
Cells(1, b + 2).Resize(UBound(arr)) = arr
End Sub