|
- Sub 去重复()
- Dim dic1 As Object
- Dim dic2 As Object
- Dim m&, arr
- Set dic1 = CreateObject("Scripting.Dictionary")
- Set dic2 = CreateObject("Scripting.Dictionary")
- arr = Range("A1").CurrentRegion
- For m = 2 To UBound(arr, 1)
- dic1(arr(m, 2)) = ""
- dic2(arr(m, 4)) = ""
- Next
- Range("K1").CurrentRegion.Offset(1, 0).ClearContents
- Range("S1").CurrentRegion.Offset(1, 0).ClearContents
- Range("K2").Resize(dic1.Count, 1) = WorksheetFunction.Transpose(dic1.Keys)
- Range("S2").Resize(dic2.Count, 1) = WorksheetFunction.Transpose(dic2.Keys)
- End Sub
复制代码
这个意思吗?
新建 Microsoft Excel 工作表.zip
(210.72 KB, 下载次数: 31)
|
评分
-
1
查看全部评分
-
|