標題: [發問] 如何取的空白後面的字串 [打印本頁]

---

作者: jsc0518    時間: 2020-12-29 21:26     標題: 如何取的空白後面的字串

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

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

---

作者: 劉大胃    時間: 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

---

作者: hcm19522    時間: 2020-12-30 15:14

https://blog.xuite.net/hcm19522/twblog/589534625

---

作者: jsc0518    時間: 2020-12-30 19:35

回復 3# hcm19522

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

---

作者: jsc0518    時間: 2020-12-30 19:36

回復 2# 劉大胃

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

---

作者: hcm19522    時間: 2020-12-31 14:01

(一)TRIM刪頭尾空白 字與字間只留一
(二)一空白擴大99  從第一字元 取99長度 再TRIM為第一字符串
(三)從第100 (1+99)字元 取99長度 再TRIM為第二字符串
以此類推

---

作者: jsc0518    時間: 2021-1-4 09:05

回復 3# hcm19522
Hi Sir,
早安，您好！
我把畫面變成下面圖示，把各資料以"/"方式做為區隔。
像這樣的話，公式要怎麼去寫？
我想用公式寫成跟右邊一樣，因為我是用Bar Code的方式去掃出資訊的，想用公式自動拆分出資訊
還請大家幫忙！！
[attach]32931[/attach]

[attach]32932[/attach]

---

作者: hcm19522    時間: 2021-1-4 09:44

=TRIM(MID(SUBSTITUTE(TRIM($A2),"/",REPT(" ",99)),COLUMN(A1)*99-98,99))

---

作者: jsc0518    時間: 2021-1-4 19:13

回復 8# hcm19522


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

---

作者: Andy2483    時間: 2022-11-25 15:43

本帖最後由 Andy2483 於 2022-11-25 15:45 編輯

回復 7# jsc0518


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

執行結果:
[attach]35526[/attach]

心得註解如下:
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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)