RegEx для удаления числа + пробел из ячеек с данными возврата каретки 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