怎么把这个表拆分分这样 求助

十月飞扬

怎么把这个表拆分分这样 求助

zhenghe03

建议您论坛里搜索“数据分列”。

3190496160

2009年就注册的老会员了，应该是知道求助要上传附件的呀

sobili

做了个宏，希望对你有帮助。 拆分.rar (16.57 KB, 下载次数: 3)

2021-8-13 23:33 上传

点击文件名下载附件

1. Sub 拆分姓名()
   
2.     Dim arr, b, i, j, k, p
   
3.     Application.ScreenUpdating = False
   
4.     For p = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
5.         a = Range("a" & p)
   
6.         arr = Split(a, Chr("10"))
   
7.         For Each b In arr
   
8.             If b <> "" Then
   
9.             '遍历数组中每个元素，将非空元素数量累加到i
   
10.                 i = i + 1
    
11.             End If
    
12.         Next
    
13.         '重新指定动态数组arr2最大小标为i-1,因为下标从0开始
    
14.         ReDim arr2(i - 1)
    
15.         '重新遍历arr数组，发现非空就写入arr2
    
16.         For Each b In arr
    
17.             If b <> "" Then
    
18.                 arr2(j) = b
    
19.                 j = j + 1
    
20.             End If
    
21.         Next
    
22.         '将名字写入单元格
    
23.         For k = LBound(arr2) To UBound(arr2)
    
24.             Cells(1, k + 2) = arr2(k)
    
25.         Next
    
26.     Next
    
27.     Application.ScreenUpdating = True
    
28. End Sub
    

复制代码

梦幻的流星

数据—分列

jians0529

针对图示内容 =MID($A1,(COLUMN(A1)-1)*6+1,6)  右拉

十月飞扬

sobili 发表于 2021-8-13 23:34
做了个宏，希望对你有帮助。

谢谢，非常感谢

rarnma

选中要拆分的区域，“数据”选项卡下点“分列”功能，选中“分隔符号”点下一步，在“分隔符号”复选框中选择“其他”，在输入框中按下”ctrl+J“，然后点结束就好了。

zhifangchen

textjoin这个函数应该可以使用吧