[已解决]分离一列中的数字和汉字

billyzhang0609

如何分离模板附件中的数字和汉字？

以单元格从左数第一个非数字字符为界限，分离为2列。

最佳答案

月排行榜 / 总排行榜

雪舞子

2017-2-19 11:12

1. Sub test()
   
2.     Dim arr, brr(), i%, j%
   
3.     arr = Range("a2").CurrentRegion
   
4.     ReDim brr(1 To UBound(arr), 1 To 2)
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Global = True
   
7.         .Pattern = "^\d+.\d+"
   
8.         For i = 2 To UBound(arr)
   
9.             Set mat = .Execute(arr(i, 1))
   
10.             brr(i, 1) = Trim(mat(0))
    
11.             brr(i, 2) = Trim(.Replace(arr(i, 1), ""))
    
12.         Next
    
13.     End With
    
14.     brr(1, 1) = "处理结果"
    
15.     [h1].Resize(i - 1, 2) = brr
    
16. End Sub
    

复制代码

分离一列中的数字和汉字.rar (19.43 KB, 下载次数: 9)

2017-2-19 11:15 上传

点击文件名下载附件

跳转到最佳答案楼层

孙明达

两个公式的话比较方便一点：
1.=-lookup(1,-left(a2,row($1:$9)))
2.在用substitute把提取出来的数字替换掉

雪舞子

1. Sub test()
   
2.     Dim arr, brr(), i%, j%
   
3.     arr = Range("a2").CurrentRegion
   
4.     ReDim brr(1 To UBound(arr), 1 To 2)
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Global = True
   
7.         .Pattern = "^\d+.\d+"
   
8.         For i = 2 To UBound(arr)
   
9.             Set mat = .Execute(arr(i, 1))
   
10.             brr(i, 1) = Trim(mat(0))
    
11.             brr(i, 2) = Trim(.Replace(arr(i, 1), ""))
    
12.         Next
    
13.     End With
    
14.     brr(1, 1) = "处理结果"
    
15.     [h1].Resize(i - 1, 2) = brr
    
16. End Sub
    

复制代码

分离一列中的数字和汉字.rar (19.43 KB, 下载次数: 9)

2017-2-19 11:15 上传

点击文件名下载附件

billyzhang0609

雪舞子 发表于 2017-2-19 11:12

要好好学习里面的代码，很好的例子，谢谢，祝周末愉快

苏子龙

=-LOOKUP(1,-LEFT($A2,ROW($1:$99)))数字
=TRIM(SUBSTITUTE(A2,G2,))文本