用VBA多组数据转行问题求助

baojun026

各位大师，现在每一行的数字是以文本格式存放的，每一行里面有多组数据，每一组数据之间有空格，需要将每组数据放一行，帮忙用VBA代码写一下，非常感谢！
如下附件，sheet1是原始数据，实现像sheet2那样(只放了几个示例)
20180910.zip (10.41 KB, 下载次数: 3)

2018-9-10 19:52 上传

点击文件名下载附件

iwangyi

Sub c()
n = [a65536].End(3).Row
For i = 1 To n
x = Split(Cells(i, 1), " ")
For cl = 1 To UBound(x) + 1
Cells(i, 3 + cl) = Split(Cells(i, 1), " ")(cl - 1)
Next
Next
End Sub

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a1:a" & r)
   
7.     ReDim brr(1 To 10000, 1 To 1)
   
8.     m = 0
   
9.     For i = 1 To UBound(arr)
   
10.       crr = Split(arr(i, 1), " ")
    
11.       For j = 0 To UBound(crr)
    
12.         If Len(crr(j)) <> 0 Then
    
13.           m = m + 1
    
14.           brr(m, 1) = crr(j)
    
15.         End If
    
16.       Next
    
17.     Next
    
18.   End With
    
19.   With Worksheets("sheet2")
    
20.     .Range("a1").Resize(m, 1) = brr
    
21.   End With
    
22. End Sub
    

复制代码

chxw68

详见附件。

iwangyi

附件*************