小伙伴们大家好，今天给大家介绍一个自定义函数，可以用来提取文本中的数字、汉字和字母，话不多说，让我们一起看下效果。
功能讲解
上图中，通过自定义一个函数“tiqu”，它一共有两个参数：
tiqu(字符串，提取类型)
参数一是需要提取的字符串；
参数二是需要提取的类型，1代表提取字母，2代表提取数字，3代表提取汉字。
代码讲解
首先通过一个IF函数，来判断自定义函数参数二的输入情况：
如果参数二输入为1，则正则表达式匹配非字母；
如果参数二输入为2，则正则表达式匹配非数字；
如果参数二输入为3，则正则表达式匹配非汉字；
变量a存储匹配模式。
在确定参数二之后，建立正则表达式，并将上面的a赋值给匹配模式，接着将输入的参数一中的内容，符合正则表达式的部分全部替换为空；
这样，如果参数二输入的为1，匹配到的非字母全部被替换为空，最终自会留下字母，依次类推。
完整代码如下所示：
Function tiqu(str As String, i As Integer)
If i = 1 Then
a = "[^A-Za-z]"
ElseIf i = 2 Then
a = "[^0-9]"
ElseIf i = 3 Then
a = "[^u4e00-u9fa5]"
End If
Set regEx = CreateObject("VBScript.RegExp")
With regEx
.Global = True
.Pattern = a
tiqu = .Replace(str, "")
End With
End Function
小结
正则表达式的方便之处在于，可以灵活提取想要的字符组合，不局限于字符串是否规则，熟练掌握，是一款强大的字符串处理工具。
