在单元格内提取姓名

lyh5500

sheet1中单元格内有多个姓名，如何提取出来，让每个单元格只有一个姓名？结果见sheet2

microyip

方法是，判断到有一个姓名就写一个姓名到单元格里。方法见代码。

有4地

姓名提取.zip (13.16 KB, 下载次数: 41)

2017-12-5 11:57 上传

点击文件名下载附件

lyh5500

没看到代码，麻烦把代码写一下，谢谢！写在电子表格里。非常感谢！

lyh5500

有4地 发表于 2017-12-5 11:57

从A1:A1000,理论上都可能有这样的数据，能提取不？点哪个按钮能提取呢？

lyh5500

有4地 发表于 2017-12-5 11:57

我操作时，始终显示“初始化数据源失败”，这是怎么回事呢？

Chip_Kenny

try this:

1. Sub zz()
   
2. Dim ar, b(), n&, k, t, tt
   
3. ar = Sheets(1).UsedRange
   
4. For Each t In ar
   
5.     k = Split(Replace(Trim(t), "  ", " "), " ")
   
6.     For Each tt In k
   
7.         ReDim Preserve b(n)
   
8.         b(n) = tt
   
9.         n = n + 1
   
10.     Next
    
11. Next
    
12. Workbooks.Add 1
    
13. [a1].Resize(n) = Application.Transpose(b)
    
14. End Sub

复制代码

有4地

EXCEL2016版的可以这么操作，不需要用VBA代码。

huanglicheng

SoSo工具集中的拆分行工具能很方便的解决这个问题


拆分行.zip (31.02 KB, 下载次数: 44)

2017-12-5 12:51 上传

点击文件名下载附件

更多实用工具 尽在soso工具集中
http://club.excelhome.net/thread-1356756-1-1.html

lyh5500

有4地 发表于 2017-12-5 12:47
EXCEL2016版的可以这么操作，不需要用VBA代码。

如果可能，我觉得还是用VBA快捷一些。你发的那个模板我始终是显示错误，不知是为什么