- 帖子
- 1447
- 主題
- 40
- 精華
- 0
- 積分
- 1471
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-3-24
|
謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教
執行前:
執行結果:
Option Explicit
Sub TEST() '↑
Dim Brr, Crr, V, Y, R&, i&
'↑ 宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是字典
Brr = Range([B2], Cells(Rows.Count, 1).End(xlUp))
'↑令Brr變數是 二維陣列,以儲存格值帶入陣列中
ReDim Crr(1 To 1000, 1 To 2)
'↑宣告 Crr變數是二維空陣列,縱向索引號1~1000,橫向索引號1~2
For i = 1 To UBound(Brr)
'↑設順迴圈!i從1到Brr縱向最大索引列號
For Each V In Split(Brr(i, 2) & vbLf, vbLf)
'↑設逐項迴圈!令V變數是以換行字元分割Brr陣列第2欄字串的一維陣列值之一
If Trim(V) = "" Then GoTo v01
'↑如果V變數去除頭尾空字元後是 空字元!就跳到v01標示位置繼續執行
If Y(Brr(i, 1) & "|" & V) <> "" Then GoTo v01
'↑如果Brr陣列第1欄字串連接"|",再連接V變數所組成的字串查Y字典item值,
'item值不是空字元!就跳到v01標示位置繼續執行
R = R + 1: Y(Brr(i, 1) & "|" & V) = 1
'↑令R變數累加1
'令在Y字典裡的(key:Brr陣列第1欄字串連接"|",再連接V變數所組成的字串),
'item="" 改為 1,
Crr(R, 1) = Brr(i, 1): Crr(R, 2) = V
'↑令R變數列第1欄Crr陣列是 i迴圈列第1欄Brr陣列值,
'↑令R變數列第2欄Crr陣列是 V變數
v01: Next
Next
[E2].Resize(R, 2) = Crr
'↑令[E2]擴展向下R變數列,向右擴展2欄範圍儲存格值以Crr陣列值帶入
Set Y = Nothing: Erase Brr, Crr
'↑令釋放變數
End Sub |
|
發表於 2023-5-15 15:15
| 