1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Function Numbers(Rng As Range) '提取数字 Dim n As Integer For n=1 To Len(Rng) '对单元格字符逐个检查 If IsNumeric(Mid(Rng, n, 1)) Or Mid(Rng, n, 1)="." Then'如果是数字 Numbers=Numbers & Mid(Rng, n, 1) '提取出连接成字符串 End If Next nEnd Function
5、在单元格C2中输入公式“=Numbers(A2)*Numbers(B2)”，然后下拉至C6，公式结果如图所示
