Parse substrings
Sub Test()
Dim s As String
Dim varMatches As Variant
s = " 1200 " & vbTab & " 300 25 2 4" & vbTab & vbTab & "1000 "
s = Replace(s, vbTab, " ")
s = Application.Trim(s)
varMatches = Split(s, " ")
End Sub
Yes! I like this solution because it's short and sweet, and the built-in functions do most of the work.
Thank you yet again Claus!
|