多行多列数据的EXCEL表格中,如何把其中数据重复的只保留一条?
5个回答
展开全部
'按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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
解答方法,多种多样樱带笑,较为常用,也较为容易掌握的就是表格自带的功能,
工具栏中,有“数据“,行缓”删除重复项”,
具体步骤,脊含
第一步:选中全部数据,
第二步:数据,删除重复数据,就可以了。
工具栏中,有“数据“,行缓”删除重复项”,
具体步骤,脊含
第一步:选中全部数据,
第二步:数据,删除重复数据,就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
每行都是独立的吧,不影响其它行的处理吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询