level 2
nmhujkfree
楼主
求助吧里的各位大神，如何用vba实现把sheet1某一列（比如第二列）中非重复项筛选出来，并把结果输出到sheet2（或者自定义工作表名称）的某一列呢。谢谢啦
2023年12月21日 14点12分
1
双字典法
2023年12月22日 01点12分
level 1
level 6
字典解决，你如果不会的话，贴吧加我，我给你解决
2023年12月22日 05点12分
4
贴吧点了关注不能发私信呢
2023年12月24日 10点12分
@nmhujkfree 我私信你了
2023年12月24日 14点12分
level 6
就用单字典，不解释
2023年12月22日 12点12分
6
单字典去重，双字典把出现次数两次以上的去掉
2023年12月22日 16点12分
@跟着南哥混3天饿9顿 我觉得你应该再复习一下字典的基本用法。！
2024年06月05日 04点06分
level 7
Option Explicit
Sub 宏1()
Dim arr, i, d
arr = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)) '获取第二列有效数据
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(arr)
d(Trim(arr(i, 1))) = True
Next i
'唯一值存入第三列
Range("c1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.Keys)
End Sub
2023年12月26日 06点12分
8
Sub 宏1()
Dim arr, i, d
arr = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)) '获取第二列有效数据
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(arr)
d(Trim(arr(i, 1))) = True
Next i
'唯一值存入第三列
Range("c1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.Keys)
End Sub
level 11
level 11
![[呵呵]](/static/emoticons/u5475u5475.png)
level 2
