vba - Excelで2つのアスタリスクの間の値を取得する方法は?

Question

Excelで2つのアスタリスクの間の値を取得する方法は?

例えば：

私はこれらを持っています：TXI*GS*346.32*13*SP*ON*3***103634408RT0001

値 346.32 のみを取得したい

これらのデータは、A1:A20 に対してこのようなものであり、VBA を使用してそれらすべてを置き換えるにはどうすればよいですか?

Answer 1

Sub useSplit()
    Dim s As String
    s = "TXI*GS*346.32*13*SP*ON*3***103634408RT0001"
    Dim a() As String
    a = Split(s, "*")

    Dim i As Long
    For i = 0 To UBound(a)
        Debug.Print a(i)
    Next
End Sub

Answer 2

Sub extractFirstNumber()

    Set objRegEx = CreateObject("vbscript.regexp")
    ' Match numbers of the form 123 or 123.45
    objRegEx.Pattern = "\d+(\.\d*)?"

    ' Iterate over the first 20 rows in first column
    For i = 1 To 20
        Set objMatch = objRegEx.Execute(Cells(i, 1).Value)
        If objMatch.Count = 1 Then
            ' If there is a match, replace the cell value
            Cells(i, 1).Value = objMatch(0)
        End If
    Next i

End Sub

編集

Sub extractFirstAndThirdNumber()

    Set objRegEx = CreateObject("vbscript.regexp")
    ' Match numbers of the form 123 or 123.45 between asteriks
    objRegEx.Pattern = "\*(\d+(\.\d*)?)"
    objRegEx.Global = True

    ' Iterate over the first 20 rows in first column
    For i = 1 To 20
        Set objMatch = objRegEx.Execute(Cells(i, 1).Value)
        If objMatch.Count >= 2 Then
            ' If there is a match, replace the cell value
            'Cells(i, 1).Value = objMatch(0)
            Cells(i, 3).Value = objMatch(0).SubMatches(0)
            Cells(i, 4).Value = objMatch(2).SubMatches(0)
        End If
    Next i

End Sub