抓空格到空格之間的字串

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

2^#

發表於 2014-12-12 10:34 | 顯示全部帖子

本帖最後由 s13983037 於 2014-12-12 10:36 編輯

回復 2# GBKEE

GBKEE前輩您好

可能我沒有表達得不是很正確,主要是想把A欄的資料印在B欄或C欄,如果可以的話再麻煩您了

我嘗試著將程式碼做修正

Dim S As String, AR As Variant, i As Integer
For ROW = 1 to 100
S = Range("A"&ROW)
AR = Split(S, " ")
S = ""
For i = 1 To 2
S = IIf(S = "", "", S & " ") & AR(i)
Next
MsgBox S
S = ""
For i = 4 To 6
S = IIf(S = "", "", S & " ") & AR(i)
Next
MsgBox S
Range("B"&Row).value= S
Range("C"&Row).value= S
Next

抓空格到空格的字串.rar (6.54 KB)

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

3^#

發表於 2014-12-12 18:21 | 顯示全部帖子

回復 4# ashan0418

謝謝幫忙

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

4^#

發表於 2014-12-12 18:28 | 顯示全部帖子

回復 2# GBKEE

GBKEE前輩您好
抓空格到空格之間的字串,如果改成我是要抓逗號到逗號的話是要去修改哪一個部分,以下是我試出來的,抓空格到空格的,想知道去哪邊把他修正成,到逗號,如果可以的話再麻煩您提點迷津感謝

For Row = 1 To 100
S = Range("A" & Row)
AR = Split(S, " ")
S = ""
For i = 1 To 2    '抓第1個空格到第2格空格的字串
On Error Resume Next                   '//////////忽略錯誤
      S = IIf(S = "", "", S & " ") & AR(i)
Next
Range("B" & Row).Value = S
S = ""
For i = 4 To 6                               '抓第四個空格到第六格空格的字串
      S = IIf(S = "", "", S & " ") & AR(i)
Next
Range("C" & Row).Value = S
Next

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

5^#

發表於 2014-12-12 20:29 | 顯示全部帖子

回復 7# GBKEE

感謝您的協助!!!我了解了