- 帖子
- 2847
- 主題
- 10
- 精華
- 0
- 積分
- 2902
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-1-16
|
Sub 按出現次數排序()
Dim Arr, A, xD, Brr(1 To 20000, 1 To 2), N&
Range("A15:B30").Clear
Arr = Range("A2:H6")
Set xD = CreateObject("Scripting.Dictionary")
For Each A In Arr
If A = "" Then GoTo 101
xD(A) = xD(A) + 1
If xD(A) = 2 Then N = N + 1: xD(A & "S") = N: Brr(N, 1) = A
If xD(A) > 1 Then Brr(xD(A & "S"), 2) = xD(A)
101: Next
With [A15:B15].Resize(N)
.Value = Brr
.Sort Key1:=.Item(2), Order1:=xlDescending, _
Key2:=.Item(1), Order2:=xlDescending, Header:=xlNo
End With
End Sub
========================================== |
|
發表於 2019-8-10 10:13
| 