[已解决]请兰色大神和其他诸神过来看看

滑到樱木

如文件，想把A1单元格内的大量杂乱数据，做好分列，文字放B列，数字放B列，且B列C列要按顺序排列
PS:文件是使用一种网页自动采数据的软件导出来的。所以需要加工，因为文件有大量这样的单元格，所以想用VBA解决{:041:}{:191:}

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2014-8-12 14:44

1. 
   
2. Sub tt()
   
3. Set regx = CreateObject("vbscript.regexp")
   
4. With regx
   
5.      .Global = True
   
6.     .Pattern = "[一-龢]+"
   
7.         Set rr = .Execute([a1])
   
8.         For Each mm In rr
   
9.             a = a + 1
   
10.             Cells(a + 1, 2) = mm
    
11.         Next
    
12. End With
    
13. a = 0
    
14. With regx
    
15.    .Global = True
    
16.     .Pattern = "[0-9]+\s?[0-9]+.?\d+%\d+.\d+"
    
17.         Set rr = .Execute([a1])
    
18.         For Each mm In rr
    
19.             a = a + 1
    
20.              Cells(a + 1, 3) = mm
    
21.         Next
    
22. End With
    
23. End Sub
    

复制代码

跳转到最佳答案楼层

26759761@qq.com

1. 
   
2. Sub tt()
   
3. Set regx = CreateObject("vbscript.regexp")
   
4. With regx
   
5.      .Global = True
   
6.     .Pattern = "[一-龢]+"
   
7.         Set rr = .Execute([a1])
   
8.         For Each mm In rr
   
9.             a = a + 1
   
10.             Cells(a + 1, 2) = mm
    
11.         Next
    
12. End With
    
13. a = 0
    
14. With regx
    
15.    .Global = True
    
16.     .Pattern = "[0-9]+\s?[0-9]+.?\d+%\d+.\d+"
    
17.         Set rr = .Execute([a1])
    
18.         For Each mm In rr
    
19.             a = a + 1
    
20.              Cells(a + 1, 3) = mm
    
21.         Next
    
22. End With
    
23. End Sub
    

复制代码

su45

26759761@qq.com 发表于 2014-8-12 14:44

咱对正则不熟悉，请教下Pattern=…………都是啥意思？

26759761@qq.com

su45 发表于 2014-8-12 15:49
咱对正则不熟悉，请教下Pattern=…………都是啥意思？

就是正则的表达式啊,在字符里进行匹配的表达式

滑到樱木

26759761@qq.com 发表于 2014-8-12 14:44

谢谢班级学习委员的倾力奉献。我还有个小问题，如果单元格内出现这种字符，如：”销量_月初“，“销量apple”；刚刚测试了一下你的方法，会出现“销量“和”月初“分开放，”销量“和”apple“分开；是不是在Pattern属性修改啊？要怎么新增？{:091:}

26759761@qq.com

把第一个pattern  改成

1. .Pattern = "[一-龢]+\w?[一-龢]+[a-zA-Z]{0,99}"

复制代码