- 帖子
- 1446
- 主題
- 40
- 精華
- 0
- 積分
- 1470
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2024-11-28
|
4#
發表於 2023-6-6 14:03
| 只看該作者
本帖最後由 Andy2483 於 2023-6-6 14:09 編輯
謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教
執行前:
執行結果:
Option Explicit
'=COUNTIF(B$1:B2,B2):回傳 上方的儲存格範圍中同當列儲存格值的個數
'=COUNTIF(B:B,B2):回傳 固定的儲存格範圍中同當列儲存格值的個數
Sub TEST() '2個陣列方式
Dim Brr, Crr, Y, i&, T$, R&, N&
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是字典
Brr = Range([B2], Cells(Rows.Count, "B").End(3))
'↑令Brr變數是 二維陣列,以B欄儲存格值帶入
R = UBound(Brr): ReDim Crr(1 To R, 1 To 2)
'↑令R變數是 Brr陣列縱向最大索引列號,
'令Crr變數是 二維空陣列,縱向範圍同Brr陣列,橫向1~2
For i = 1 To R: T = Brr(i, 1): N = Y(T) + 1: Crr(i, 1) = N: Y(T) = N: Next
'↑設順迴圈!令T變數是Brr陣列值,令N變數是以T變數查Y字典item值累加1,
'令Crr陣列第1欄寫入N變數值,令在Y字典裡T變數key其item值是N變數值
For i = 1 To R: Crr(i, 2) = Y(Brr(i, 1)): Next
'↑設順迴圈!令Crr陣列第2欄寫入(以Brr陣列值查Y字典得到的item值)
[C2].Resize(R, 2) = Crr
'↑令從[C2]開始的範圍儲存格寫入Crr陣列值
End Sub
Sub TEST_1() '1個陣列方式
Dim Brr, Y, i&, T$, R&, N&
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是字典
Brr = Range([B2], Cells(Rows.Count, "A").End(3))
'↑令Brr變數是 二維陣列,以A~B欄儲存格值帶入
R = UBound(Brr)
'↑令R變數是 Brr陣列縱向最大索引列號
For i = 1 To R: T = Brr(i, 2): N = Y(T) + 1: Brr(i, 1) = N: Y(T) = N: Next
'↑設順迴圈!令T變數是第2欄Brr陣列值,令N變數是以T變數查Y字典item值累加1,
'令Brr陣列第1欄寫入N變數值(取代掉原陣列值),
'令在Y字典裡T變數key其item值是N變數值
For i = 1 To R: Brr(i, 2) = Y(Brr(i, 2)): Next
'↑設順迴圈!令Brr陣列第2欄寫入(以第2欄Brr陣列值查Y字典得到的item值)
[C2].Resize(UBound(Brr), 2) = Brr
'↑令從[C2]開始的範圍儲存格寫入Brr陣列值
End Sub
A~B欄以A欄為基準排序後重新執行結果:
|
|
發表於 2019-12-28 10:28
| 