VBA批量从字符串中提取数字，中文，英文字母同的

第一个参数为要提取数据的单元格，第二个参数为要提取的类型：1-中文，2-英文字母，3-数字。

1. Function zh(rag As Range, lx As Integer)
   
2.   Dim reg As Object
   
3.   Set reg = CreateObject("vbscript.regexp")
   
4.   tj = Choose(lx, "\w", "[^a-zA-Z]", "\D")
   
5.   With reg
   
6.     .Global = True
   
7.     .Pattern = tj
   
8.     zh = .Replace(rag, "")
   
9.   End With
   
10. End Function

复制代码

或用下面的自定义函数也可以：

1. Function MyGet(Srg As String, Optional n As Integer = False)  
   
2.   
   
3.     Dim i As Integer  
   
4.     Dim s, MyString As String  
   
5.     Dim Bol As Boolean  
   
6.       
   
7.     For i = 1 To Len(Srg)  
   
8.         s = Mid(Srg, i, 1)  
   
9.         If n = 1 Then  
   
10.             Bol = Asc(s) < 0  
    
11.         ElseIf n = 2 Then  
    
12.             Bol = s Like "[a-z,A-Z]"  
    
13.         ElseIf n = 0 Then  
    
14.             Bol = s Like "#"  
    
15.         End If  
    
16.         If Bol Then MyString = MyString & s  
    
17.     Next  
    
18.       
    
19.     MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))  
    
20.       
    
21. End Function  

复制代码