返回列表 上一主題 發帖

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

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
201  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-12-29 21:26 | 只看該作者

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

本帖最後由 jsc0518 於 2020-12-29 21:29 編輯

Dear all,
我有一串系統撈下來的資料，但每一個資料後面都是一個空白(除最後一筆資料後面沒空白)，我要使用哪一公式去拆分成不同的儲存格呢？
圖片如下

公式拆分.rar (7.87 KB)
收藏 分享
Just do it.

劉大胃

帖子
63 
主題
8 
精華
0 
積分
122 
點名
0  
作業系統
Windows 2007 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2019-4-16 
最後登錄
2023-3-24 
2#
發表於 2020-12-30 11:53 | 只看該作者
DIM varArrstr as Varriant
DIM coli as Integer

varArrStr = Split(InputString, " ")  


For coli =0 to 10 step 1

if varArrStr(coli ) ="" then
   exit for
end if

cells(1,coli +1) =varArrStr(coli )

Next coli
新手上路，請多包涵。

TOP

hcm19522

帖子
1447 
主題
16 
精華
0 
積分
1469 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2025-10-31 

熱烈參與勳章
3#
發表於 2020-12-30 15:14 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/589534625
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
201  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
4#
發表於 2020-12-30 19:35 | 只看該作者
回復 3# hcm19522

Hi 您好！感謝回復。
請問可以教我一下公式說明嗎？
=TRIM(MID(SUBSTITUTE(TRIM(B$2)," ",REPT(" ",99)),ROW(A1)*99-98,99))
這我不是很懂
感恩！
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
201  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
5#
發表於 2020-12-30 19:36 | 只看該作者
回復 2# 劉大胃

Hi Sir,
這語法是甚麼意思啊？
感謝您
Just do it.

TOP

hcm19522

帖子
1447 
主題
16 
精華
0 
積分
1469 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2025-10-31 

熱烈參與勳章
6#
發表於 2020-12-31 14:01 | 只看該作者
(一)TRIM刪頭尾空白 字與字間只留一
(二)一空白擴大99  從第一字元 取99長度 再TRIM為第一字符串
(三)從第100 (1+99)字元 取99長度 再TRIM為第二字符串
以此類推
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
201  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
7#
發表於 2021-1-4 09:05 | 只看該作者
回復 3# hcm19522
Hi Sir,
早安，您好！
我把畫面變成下面圖示，把各資料以"/"方式做為區隔。
像這樣的話，公式要怎麼去寫？
我想用公式寫成跟右邊一樣，因為我是用Bar Code的方式去掃出資訊的，想用公式自動拆分出資訊
還請大家幫忙！！


公式拆分2.rar (7.59 KB)
Just do it.

TOP

hcm19522

帖子
1447 
主題
16 
精華
0 
積分
1469 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2025-10-31 

熱烈參與勳章
8#
發表於 2021-1-4 09:44 | 只看該作者
=TRIM(MID(SUBSTITUTE(TRIM($A2),"/",REPT(" ",99)),COLUMN(A1)*99-98,99))
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
201  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
9#
發表於 2021-1-4 19:13 | 只看該作者
回復 8# hcm19522


Hi hcm19522,,
太感謝你的幫忙了，解決我的問題！！
Just do it.

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1517 
主題
40 
精華
0 
積分
1541 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-10-31 
10#
發表於 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

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題