返回列表 上一主題 發帖

[發問] 如何取的空白後面的字串

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
1# 跳轉到 »
發表於 2022-11-25 15:43 | 顯示全部帖子
本帖最後由 Andy2483 於 2022-11-25 15:45 編輯

回復 7# jsc0518


    謝謝前輩發表此主題與範例
後學藉此帖練習陣列與字典,請各位前輩指正並指導!謝謝
執行前:


執行結果:


心得註解如下:
Option Explicit
Sub 練習_陣列與字典()
Dim Brr, i&, Y
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y 是字典
Brr = Range([工作表1!A2], [工作表1!A65536].End(3))
'↑令Brr是二維陣列! 倒入[A2]到 A欄最後一個有內容儲存格的值
For i = 1 To UBound(Brr)
'↑設順迴圈! 從1 到 Brr陣列縱向列號
   Y(i) = Split(Brr(i, 1), "/")
   '↑令字典裝入迴圈數的key,item是一維陣列(用 "/"符號拆解 陣列迴圈字串)
Next
[C5].Resize(Y.Count, 5) = Application.Transpose(Application.Transpose(Y.items))
'↑從[C5]擴展向下Y字典裡的key數量列數,向右擴展5欄的範圍,
'貼入Y字典item轉置兩次的值
Set Y = Nothing
Set Brr = Nothing
End Sub

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題