如何使用替换功能创建宏?

时间:2015-02-19 14:55:35

标签: excel excel-vba vba

我是VBA excel的初学者,并尝试创建一个userdefine函数。

我想用vba替换多个值并希望返回定义的值,那么具有替换函数的正确宏是什么.....我有这样的数据.... 011 25655527和返回值应该是这样的" 01125655527" 92-9818425034和返回值应该是这样的" 9818425034" 并且有空间和连字符的数量以及我无法手动完成的事情,因为我需要花费很多时间才能理解.... 提前谢谢....

请帮我修理

1 个答案:

答案 0 :(得分:1)

此函数返回一个字符串,其中包含作为参数给出的单元格中的所有数字字符。我想这就是你想要的?

Function remove_non_numbers(r As Range) As String
  Dim oRegEx As Object

  Set oRegEx = CreateObject("vbscript.regexp")
  oRegEx.Pattern = "[^\d]+"
  oRegEx.Global = True

  remove_numbers = oRegEx.Replace(r, vbNullString)
End Function