首页 › Excel › excel中简单的提取数字和非数字

大风大浪就是闯 发表于 2019-4-25 15:48:29

excel中简单的提取数字和非数字

本帖最后由 erikafei 于 2019-4-25 17:15 编辑

简单的提取数字和非数字

Function 提(Rg As Range, x)
    Dim Reg
    Set Reg = CreateObject("Vbscript.RegExp")
    With Reg
      .Global = True
      If x = 1 Then
            .Pattern = "\D"
      Else
             .Pattern = "\d"
      End If
    End With
    提 = Reg.Replace(Rg, "")
End Function

clearlove 发表于 2019-4-25 21:29:35

谢谢分享

MAMY 发表于 2019-4-27 19:02:39

谢谢分享

查看完整版本: excel中简单的提取数字和非数字