可以使用正则表达式来完成。您将对要删除的数据进行匹配,然后将其替换为空字符串。
由于您没有提供任何代码,因此我所能做的就是为您提供可以在自己的项目中实现的功能。此函数可以在VBA中使用,也可以用作工作表函数,例如=ReplaceFloatingIntegers(A1)
。
您将需要添加一个引用到
Microsoft VBScript Regular Expressions 5.5
前往Tools,References在VBE菜单。
Function ReplaceFloatingIntegers(Byval inputString As String) As String
With New RegExp
.Global = True
.MultiLine = True
.Pattern = "(\b\d+\b\s?)"
If .Test(inputString) Then
ReplaceFloatingIntegers = .Replace(inputString, "")
Else
ReplaceFloatingIntegers = inputString
End If
End With
End Function
( ... )
这是一个捕获小组。该组中捕获的所有内容都可以替换为该.Replace()
功能。\b
这是单词边界。我们之所以使用它,是因为我们要从头到尾测试任何“单词”(在我们的例子中包括仅包含数字的单词)。\d+\b
这将使任何数字(\d
)匹配一次到无限+
次,直到下一个单词边界\b
\s?
将匹配一个空格字符,但是?
如果该字符存在则是可选的您可以查看这个个性化的Regex101页面,以了解它如何与您的数据匹配。此处匹配的任何内容都将替换为空字符串。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句