正则表达式从带有回车数据 VBA 的单元格中删除数字 + 空格

Question

我在单元格中有数据，例如

1  stuff
14 stuff2
9  stuff3
.
.
nn stufn

我需要

stuff
stuff2
stuff3
.
.
stufn

我有

Sub test()
Dim r As Range

With CreateObject("VBScript.RegExp")
  .Global = True
  .Pattern = "^\S* "

  For Each r In Selection
      r.value = .Replace(r.value, "")
  Next

 End With
End Sub

但它只删除字符串中的第一个实例

stuff
14 stuff2
9  stuff3
.
.
nn stufn

如何删除所有数字+空格

谢谢

Answer 1

你需要使用

.MultiLine = True
.Pattern = "^\S+ +"

.MultiLine = True将使^在每行的开头匹配， +将匹配 1+ 个空格。

Answer 2

根据您的数据示例，您可以避免正则表达式，只需 go：

Selection.Replace what:="*stuf", replacement:="stuf", lookAt:=xlPart