这个数据串怎么提取?
各位大侠:
我有一串数据,如:1,100,53318.52,31360.04,25.047,用哪个函数能逐一提取?
[解决办法]
用Split函数可以
Private Sub Command1_Click()
Dim s As String
Dim A() As String
Dim i As Integer
s = "1,100,53318.52,31360.04,25.047 "
A = Split(s, ", ")
For i = LBound(A) To UBound(A)
Debug.Print A(i)
Next i
End Sub