1、首先我们打开excel，点击文件-另存为，将其另存为xlsm启用宏的工作簿。
2、右击下方工作表名称，点击“查看代码”选项，打开vba编辑器。这个过程可以直接按快捷键Alt+F8
3、在vba编辑器中，点击“插入”-“模块”
4、复制以下代码，粘贴在插入的模块中Function TQ(rng As Range, Optional i As String = "数字")With CreateObject("vbscript.regexp") Select Case i Case "数字": .Pattern = "\d" Case "字母": .Pattern = "[a-zA-Z]" Case "汉字": .Pattern = "[\u4e00-\u9fa5]" End Select .Global = True Set matches = .Execute(rng.Value) For Each Match In matches a = a & s & Match Next TQ = IIf(Len(a) > 0, a, "") End WithEnd Function
5、返回excel界面，比如下图我们要提取A列的数字到B列，那么我们在B2单元格输入=TQ(A2,"数字")，回车，向下填充即可。
6、如果需要提取字母或者汉字，把函数中的“数字”修改为“字母”或者“汉字”即可。
