拆分如果與RQ開始在VBA

Question

我有這樣一個字符串的字符串：

RQ12123RQ32434RQu9798 

我需要拆分RQ的字符串。預計輸出ID：

RQ12123,RQ32434,RQu9798 

我的代碼：

WrdArray() = Split(Sheets(SdomCompareResultSheet).Cells(i, 5).Value) 

Answer 1

堅持你的代碼：

Dim WrdArray As Variant 

WrdArray = Split(Trim(Replace(Sheets(SdomCompareResultSheet).Cells(i, 5).Value, "RQ", " RQ"))) 

---

一個更通用的代碼：

Function GetArray(strng As String, id As String) As Variant 
    GetArray = Split(Trim(Replace(strng, id, " " & id))) 
End Function 

，你可以在你的 「主」 子利用如下

Sub main() 
    Dim WrdArray As Variant 
    Dim strng As String 

    strng = "RQ12123RQ32434RQu9798" 
    WrdArray = GetArray(strng, "RQ") 

End Sub 

---

少一些通用代碼

假設喲你知道，前兩個字母是總是通過解析字符串ID：

Function GetArray(strng As String) As Variant 
    GetArray = Split(Trim(Replace(strng, Left(strng, 2), " " & Left(strng, 2)))) 
End Function 

被利用類似如下：

Sub main() 
    Dim WrdArray As Variant 
    Dim strng As String 

    strng = "RQ12123RQ32434RQu9798" 
    WrdArray = GetArray(strng) 

End Sub 

Answer 2

考慮：

Sub dural() 
    Dim s As String, t As String 

    s = "RQ12123RQ32434RQu9798" 
    t = Mid(Replace(s, "RQ", ",RQ"), 2) 
    MsgBox t 
End Sub 

編輯＃1：

在輸入字符串「RQ」的每一次出現將得到昏迷預置到它（除了第一個「RQ」）

EDIT＃2：

爲了將結果存儲在一個陣列：

Sub dural() 
    Dim s As String, t As String 

    s = "RQ12123RQ32434RQu9798" 
    t = Mid(Replace(s, "RQ", ",RQ"), 2) 
    MsgBox t 

    ary = Split(t, ",") 
End Sub