Question

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

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

请帮我修理

Answer 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

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

1 个答案: