|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub test()
arr = Sheets("表").Range("a1:a19")
ReDim brr(1 To UBound(arr), 1 To 10)
For i = 1 To UBound(arr)
s = Split(arr(i, 1), " ")
m = m + 1
For j = 0 To UBound(s)
If j = 0 Then
brr(m, 1) = s(j)
ss = brr(m, 1)
For k = 1 To Len(ss)
If IsNumeric((Mid(brr(m, 1), k, 1))) Then
brr(m, 1) = Left(ss, k - 1)
brr(m, 2) = Right(ss, Len(ss) - k + 1)
Exit For
End If
Next
Else
brr(m, 2 + j) = s(j)
End If
Next
Debug.Print i, j, UBound(s)
Next
[B1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub |
|