抓空格到空格之間的字串

s13983037

各位前輩
小弟功力不夠,前來學習,希望前輩能只點迷津 ,感謝..

想抓到 抓空格到空格之間的字串
類似以下紅色區塊的部分,感謝幫忙..
Never put off till tomorrow what may be done today

GBKEE

回復 1# s13983037
試試看

1. Option Explicit
   
2. Sub Eu()
   
3.     Dim S As String, AR As Variant, i As Integer
   
4.     S = "Never put off till tomorrow what may be done today"
   
5.     AR = Split(S, " ")
   
6.     S = ""
   
7.     For i = 1 To 2
   
8.         S = IIf(S = "", "", S & " ") & AR(i)
   
9.     Next
   
10.     MsgBox S
    
11.     S = ""
    
12.     For i = 4 To 6
    
13.         S = IIf(S = "", "", S & " ") & AR(i)
    
14.     Next
    
15.     MsgBox S
    
16. End Sub

複製代碼

s13983037

回復 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

ashan0418

1. Dim S As String, AR As Variant, i As Integer
   
2. For Row = 1 To 100
   
3.     S = Range("A" & Row)
   
4.     AR = Split(S, " ")
   
5.     S = ""
   
6.     For i = 1 To 2
   
7.         S = IIf(S = "", "", S & " ") & AR(i)
   
8.     Next
   
9.     Range("B" & Row).Value = S
   
10.     S = ""
    
11.     For i = 4 To 6
    
12.         S = IIf(S = "", "", S & " ") & AR(i)
    
13.     Next
    
14.     Range("C" & Row).Value = S
    
15. Next

複製代碼

回復 3# s13983037

s13983037

回復 4# ashan0418


    謝謝幫忙

s13983037

回復 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

GBKEE

回復 6# s13983037
試試看

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

複製代碼

s13983037

回復 7# GBKEE

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