怎样使用VBA分离数字？

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 n
End Function

5、在单元格C2中输入公式“=Numbers(A2)*Numbers(B2)”，然后下拉至C6，公式结果如图所示