Board logo

標題: 抓空格到空格之間的字串 [打印本頁]
作者: s13983037    時間: 2014-12-11 23:52     標題: 抓空格到空格之間的字串

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

想抓到 抓空格到空格之間的字串
類似以下紅色區塊的部分,感謝幫忙..
Never put off till tomorrow what may be done today
作者: GBKEE    時間: 2014-12-12 06:00

回復 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    時間: 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
作者: ashan0418    時間: 2014-12-12 11:24

  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    時間: 2014-12-12 18:21

回復 4# ashan0418


    謝謝幫忙
作者: s13983037    時間: 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
作者: GBKEE    時間: 2014-12-12 19:44

回復 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    時間: 2014-12-12 20:29

回復 7# GBKEE

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



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