VBA搜索列中的值之後特定圖案

Question

我有輸入數據是這樣的：

gen,N,,,GONGD,,,N,,,KL,0007bd,,,,,,,,TAK, 
gen,N,,,RATEC,,,N,,,KP,0007bc,,,,,,,,TAZ, 
kap,N,,,EBFWE,N,,,,,,,,,KP,002bd4,,,KP,123000,,,,,N,,,,P 
kap,N,,,ST,WEIT,E3,EBFWEI,,,KP,002bd2,N,,,,,,KP,002bd3,,,,,,,Z,MG00,,,,,N,,,,P 

一行是在一列。首先我需要知道我連續以「kap」開頭，然後我需要在第一個「KP」之後保存6個字符（或數字）作爲「變量1」並保存6個字符或數字在第二個「 ，KP「，如」Variable2「。請幫助我，我無望。

預期結果：對於第一個「kap」行，Var1 = 002bd4，Var2 = 123000。 VAR3 = 002bd2，VAR4 = 002bd3

我曾經嘗試這樣做就知道我在 「KAP」 起跑線：

Sub Find() 
Dim rFoundAddress As Range 
Dim sFirstAddress As String 
Dim x As Long 

With ThisWorkbook.Worksheets("Sheet1").Columns(1) 
    Set rFoundAddress = .Find("kap,*", LookIn:=xlValues, LookAt:=xlWhole) 
    If Not rFoundAddress Is Nothing Then 
     sFirstAddress = rFoundAddress.Address 
     Do 


      Set rFoundAddress = .FindNext(rFoundAddress) 
     Loop While Not rFoundAddress Is Nothing And _ 
      rFoundAddress.Address <> sFirstAddress 
    End If 
End With 
End Sub 

謝謝！

Answer 1

試試這個

Sub Find() 
    Dim rFound As Range 
    Dim sFirstAddress As String 
    Dim vals As Variant 

    With ThisWorkbook.Worksheets("Sheet1").Columns(1) 
     Set rFound = .Find("*kap,*", LookIn:=xlValues, LookAt:=xlWhole) 
     If Not rFound Is Nothing Then 
      sFirstAddress = rFound.Address 
      Do 
       vals = Split(Split(Split(rFound.text, "KP")(1), ",")(1) & "," & Split(Split(rFound.text, "KP")(2), ",")(1), ",") 
       Set rFound = .FindNext(rFound) 
      Loop While rFound.Address <> sFirstAddress 
     End If 
    End With 
End Sub 

，其中在每一行you'l得到vals陣列中存儲兩個該行