用VBA整理A1单元格分成两列

laoau138

用VBA整理A1单元格分成两列

香川群子

最简单的：

1. Sub test()
   
2.     [b6].CurrentRegion.Offset(1) = "" '清空输出区域
   
3.     ar = Split(Join(Filter(Split([a1], ","), "(女)")), "(女)")
   
4.     '拆分、按"女"过滤、合并、再拆分(去除"(女)")
   
5.     [c6].Resize(UBound(ar)) = WorksheetFunction.Transpose(ar) '转置输出
   
6.     [b6] = 1: [b6].Resize(UBound(ar)).DataSeries Rowcol:=xlColumns '填充序号
   
7. End Sub
   

复制代码

呵呵。

香川群子

标准的：

1. Sub test()
   
2.     [b6].CurrentRegion.Offset(1) = "" '清空输出区域
   
3.     ar = Split([a1], ",") '拆分为数组
   
4.     For Each a In ar '遍历数组
   
5.         If a Like "*(女)" Then i = i + 1: Cells(i + 5, 2) = i: Cells(i + 5, 3) = Replace(a, "(女)", "")
   
6.         '检查含"(女)"的则Replace置换去除后输出名字、并加序号。
   
7.     Next
   
8. End Sub
   

复制代码

laoau138

香川群子 发表于 2016-9-28 14:21
最简单的：

还可以用instr

laoau138

香川群子 发表于 2016-9-28 14:27
标准的：

多种方法排序

http://www.excelpx.com/thread-424709-1-1.html

pengyx

a=replace(replace([a1],"(女)",","),",,",",")
b=split(a,",")
for .......
cells()=..
cells()=b(..)
next

laoau138

pengyx 发表于 2016-9-28 16:45
a=replace(replace([a1],"(女)",","),",,",",")
b=split(a,",")
for .......

又来马后炮，从来没有见过你马前炮

香川群子

laoau138 发表于 2016-9-28 16:56
又来马后炮，从来没有见过你马前炮

这个代码你验证过了吗？

a = Replace(Replace([a1], "(女)", ","), ",,", ",") ……能得到什么东西？

……得到：朱清燕,林鑫,林秋静,林永鑫,林云艳,林嘉惠,
结果是把"(女)"字符给去掉了。然后接下来要怎么处理呢？

香川群子

laoau138 发表于 2016-9-28 16:29
还可以用instr

还可以用Right……这都算一类吧。

香川群子

速度比较还是2楼最简代码速度最快。

因为Replace效率其实是很低的。