第一行及后面几行拆分

老衲想还俗

各位大侠请教下，拜托啦
第一行及后面几行拆分，如表格所示效果
将A列拆分成BC列，B列为A列第一行，C列为A列其余几行

蓝桥玄霜

身高的例子：

老衲想还俗

这个不一定是身高哦，表格实际没有相同于身高这个点

老衲想还俗

蓝桥玄霜 发表于 2020-5-31 17:07
身高的例子：

蓝老帮看一下，实际表格只有一个名字哦，后面的内容都是不同的，所以才要分类

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 UBound(arr), 1 To 2)
   
8.     For i = 1 To UBound(arr)
   
9.       xm = Split(arr(i, 1), vbLf, 2)
   
10.       brr(i, 1) = xm(0)
    
11.       brr(i, 2) = xm(1)
    
12.     Next
    
13.     .Range("b1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
14.   End With
    
15. End Sub
    

复制代码

chxw68

详见附件。