返回列表 上一主題 發帖

請教字串中的資料如何比對而擷取相對欄位的資料?

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-5-5 
1# 跳轉到 »
發表於 2023-5-12 16:23 | 顯示全部帖子
謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教

執行前:


執行結果:



Option Explicit
Sub TEST()
Dim Brr, Crr, Y, Z, i&, T1$, T2$
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是 字典
Brr = Range([B10], [B65536].End(3))
'↑令Brr變數是 二維陣列,以B欄儲存格值帶入
Crr = Range([H22], [G65536].End(xlUp))
'↑令Crr變數是 二維陣列,以G~H欄儲存格值帶入
For i = 1 To UBound(Crr)
'↑設順迴圈 (拆解組別對應成員(G欄),裝入Y字典中)
   T1 = Crr(i, 1): T2 = Crr(i, 2)
   '↑令變數承裝迴圈陣列值
   If (T1 = "") * (T2 = "") Then GoTo i01
   '↑忽略空格
   For Each Z In Split(T1, ",")
   '↑設逐項迴圈!令Z變數是 (G欄)值以","分割的一維陣列子
      If Z = "" Then GoTo z01
      '↑如果Z變數是空字元!就跳到z01標示位置繼續執行
      Y(Z) = T2
      '↑令以Z變數當key,item是T2變數(組名)
z01: Next
i01: Next
For i = 1 To UBound(Brr)
'↑設順迴圈 (將欲辨識的成員當key,查Y字典得到組名)
   Brr(i, 1) = Y(Brr(i, 1) & "")
   '↑令查Y字典得到組名覆蓋掉原來Brr的成員
Next
[L10].Resize(UBound(Brr), 1) = Brr
'↑令Brr陣列值從[L10]開始寫入儲存格中
Set Y = Nothing: Erase Brr, Crr
'↑令釋放變數
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題