如何将一列单元格中多个用顿号分开名字拆分到另一列多个单元格

apucng

如上图所示，有多个名字单元格就拆成右边哪种格式

附件1.rar (22.32 KB, 下载次数: 4)

2018-7-26 11:03 上传

点击文件名下载附件

苏小亓

1. Sub test()
   
2.     Dim zrr(1 To 10000, 1 To 3)
   
3.     arr = Range("a2:c" & Cells(Rows.Count, 1).End(3).Row)
   
4.     For n = 1 To UBound(arr)
   
5.         brr = Split(arr(n, 1), "、")
   
6.                 For m = 0 To UBound(brr)
   
7.             k = k + 1
   
8.             zrr(k, 3) = arr(n, 3)
   
9.             zrr(k, 2) = arr(n, 2)
   
10.             zrr(k, 1) = brr(m)
    
11.         Next
    
12.     Next
    
13.     [f2].Resize(k, 3) = zrr
    
14. End Sub

复制代码

苏小亓

附件1.zip (43.29 KB, 下载次数: 20)

2018-7-26 11:13 上传

点击文件名下载附件