jsc0518

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

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.

劉大胃

中學生 Rank: 2

帖子: 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

大學生 Rank: 4

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

熱烈參與勳章

3^#

發表於 2020-12-30 15:14 | 只看該作者

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

jsc0518

高中生 Rank: 3 Rank: 3

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

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

高中生 Rank: 3 Rank: 3

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

5^#

發表於 2020-12-30 19:36 | 只看該作者

回復 2# 劉大胃

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

Just do it.

TOP

hcm19522

大學生 Rank: 4

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

熱烈參與勳章

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

高中生 Rank: 3 Rank: 3

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

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

大學生 Rank: 4

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

熱烈參與勳章

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

高中生 Rank: 3 Rank: 3

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

9^#

發表於 2021-1-4 19:13 | 只看該作者

回復 8# hcm19522

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

Just do it.

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-5-5

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