Excel VBA小程序03-快速提取单元格中的数字和非数字

0、表格内容

A列	B列
手机2134
型号324
2135手机
325型号
2手机136
32型号6

1、Word法

1.1 提取非数字

遇事不决就去隔壁找Word，将表格A列内容复制到Word中，打开“替换”窗口，输入[0-9]，点开“高级搜索”勾选“使用通配符”，点击全部替换，将替换好的内容再复制回Excel表格中。

1.2 提取数字

将表格A列内容复制到Word中，打开“替换”窗口，输入[!0-9]，点开“高级搜索”勾选“使用通配符”，点击“全部替换”，将替换好的内容再复制回Excel表格中。

2、自定义函数法

按Alt+F11，打开VBA编辑器，选中工作薄右键插入模块，在代码窗口粘贴代码。

2.1 提取非数字

Function Extract_numbers(aa As Range)
    Dim n As Integer, i As Integer, tem
    n = Len(aa.Value)
    For i = 1 To n
        If IsNumeric(Application.Find(Mid(aa.Value, i,