批量文字数字分离造表

20074974

被叶枫惊艳到了。。

qw78821106

好东西 学习了

qw78821106

ggsmart 发表于 2011-11-21 14:27
0-9:表示0-9的数字，即0123456789中的任意一个
Xx:分别代表大小写的X字母（因为身份证号后面会有字母) ...

回复收藏！！！！！！！！！！！通配符是指什么意思

qinzjbank

ggsmart 发表于 2011-11-21 12:53
借助WORD搞一下。

多谢8楼！！！收藏。

bluexuemei

1. Sub t()
   
2. Dim rng As Range, ojs As Object, arr1, arr2, str$
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "jscript"
   
4. ojs.eval "function delh1(str){return str.match(/[一-龥]+/g)};"
   
5. ojs.eval "function delh2(str){return str.match(/[\d]+/g)};"
   
6. Open ThisWorkbook.Path & "\11.txt" For Input As #1
   
7. str = Replace(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf, "|")
   
8.     arr1 = Split(ojs.codeobject.delh1(str), ",")
   
9.     arr2 = Split(ojs.codeobject.delh2(str), ",")
   
10.     [a1].Resize(UBound(arr1) + 1, 1) = Application.Transpose(arr1)
    
11.     Columns("b:b").NumberFormatLocal = "@"
    
12.     [b1].Resize(UBound(arr2) + 1, 1) = Application.Transpose(arr2)
    
13. Reset
    
14. Columns("a:b").AutoFit
    
15. End Sub
    

复制代码

yzcyzc1023

这种分享。

leonsun

太牛了，这种情况日常工作也是常有的，不一定是身份证号码，不过如果不要借助word，单靠excel看来还是有局限的了？

清扬人生

ggsmart 发表于 2011-11-21 12:53
借助WORD搞一下。

技术牛，思路也牛啊

love_liunian

太有意思了，楼主真得很厉害

CHENGYIYONG

真令人佩服。高手，高手！