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个字符（或数字）保存为“Variable1”，并在第二个之后保存6个字符或数字“ ,KP”作为“变量 2”。请帮帮我，我没救了。

预期结果：第一个“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

在每一行你会得到 vals 数组，存储该行中的两个想要的值