怎么把一个单元格内的内容拆分成多行，其他的单元格复制原内容

坤叔在搬砖

文件实例

如图所示，我想把【班级】这一列拆分成多行，同时保持其他单元的内容不变
想要的效果：

求大神帮帮忙，感谢
文件： 教师详情.csv.zip (14.99 KB, 下载次数: 124)

2015-7-3 11:57 上传

点击文件名下载附件

dqhtju

不知道为什么我打开文件看到的是乱码，大致思路是
使用split分割
倒序方式插入

看见星光

1. Sub tt()
   
2. Dim arr, brr, i&, j&, m&, k&
   
3. arr = [a1].CurrentRegion
   
4. ReDim brr(1 To 100000, 1 To UBound(arr, 2))
   
5.     For i = 2 To UBound(arr)
   
6.         drr = Split(arr(i, 9), "，")
   
7.         For j = 0 To UBound(drr)
   
8.             k = k + 1
   
9.             For m = 1 To UBound(arr, 2)
   
10.                 brr(k, m) = arr(i, m)
    
11.             Next
    
12.             brr(k, 9) = drr(j)
    
13.         Next
    
14.     Next
    
15. [a2].Resize(k, UBound(arr, 2)) = brr
    
16. End Sub
    

复制代码

看见星光

000.rar (137.13 KB, 下载次数: 312)

2015-7-3 12:31 上传

点击文件名下载附件

坤叔在搬砖

看见星光 发表于 2015-7-3 12:31

太感谢了  真是帮了我大忙

wj42

真是高人啊

LMY123

根据字符，单元格拆分成多行，其它列复制，数组法