- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2025-3-24
|
- Sub zz()
- Dim d As Object, a, k, t, xL As Object, n&
- Set xL = CreateObject("System.collections.arraylist")
- Set d = CreateObject("scripting.dictionary")
- a = Range("h6:h" & [h1048576].End(3).Row)
- For Each k In a
- d(k) = ""
- Next
- For Each k In d.keys
- xL.Add k
- Next
- xL.Sort: b = xL.Toarray()
- n = UBound(b)
- For i = 1 To UBound(a)
- For j = 0 To n
- If a(i, 1) <= b(j) Then a(i, 1) = n + 1 - j: Exit For
- Next
- Next
- [i6].Resize(i - 1) = a
- End Sub
|
|
發表於 2021-9-28 08:34
| 
