如何获取excel中两个星号之间的值？

Question

如何获取两个星号之间的值在Excel中？

例如：

我有这些：TXI*GS*346.32*13*SP*ON*3***103634408RT0001

我只想要得到的值346.32

我这些数据像这样为A1：A20我怎样才能使用VBA全部更换？

Answer 1

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 

Answer 2

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