正則表達式從帶有回車數據 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