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

jsc0518

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

下載 (28.88 KB)

2020-12-29 21:29

公式拆分.rar (7.87 KB)

下載次數: 9

2020-12-29 21:29

劉大胃

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

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

jsc0518

回復 3# hcm19522

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

jsc0518

回復 2# 劉大胃

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

hcm19522

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

jsc0518

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

下載 (38.54 KB)

2021-1-4 09:04

公式拆分2.rar (7.59 KB)

下載次數: 4

2021-1-4 09:04

hcm19522

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

jsc0518

回復 8# hcm19522


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

Andy2483

回復 7# jsc0518


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

下載 (49.79 KB)

2022-11-25 15:32

執行結果:

下載 (59.61 KB)

2022-11-25 15:33

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