|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
代码供参考。。- Sub ykcbf() '//2024.3.11
- Dim arr, d
- Application.ScreenUpdating = False
- Set d = CreateObject("Scripting.Dictionary")
- With Sheets("Sheet1")
- r = .Cells(.Rows.Count, "a").End(xlUp).Row
- arr = .[a1].Resize(r, 1)
- For i = 2 To UBound(arr)
- s = arr(i, 1)
- d(s) = d(s) + 1
- Next
- .[f6:g1000] = ""
- .[f6].Resize(d.Count, 2) = WorksheetFunction.Transpose(Array(d.keys, d.Items))
- .[f6].Resize(d.Count, 2).Sort .[f6], 1
- End With
- Set d = Nothing
- Application.ScreenUpdating = True
- MsgBox "OK!"
- End Sub
复制代码
|
评分
-
1
查看全部评分
-
|