еюсь, что вы можете помочь.

У меня есть фрагмент кода, который в настоящее время удаляет весь текст из ячеек в столбце G. Мне нужен этот код, чтобы вместо удаления текста я хотел, чтобы он удалял цифры, и я хочу, чтобы он толькоудалить числа в начале строки / ячейки остальные данные я бы хотел оставить прежними.

Я приложил изображение PIC.1 для понимания ставок.

pic1

Код, который у меня есть в настоящее время, и я надеюсь, что он может быть изменен ниже, и, как всегда, любая помощьвысоко ценится.

КОД

Sub RemoveNonDigits()
  Dim X As Long, Z As Long, LastRow As Long, CellVal As String
  Const StartRow As Long = 1
  Const DataColumn As String = "G"
  Application.ScreenUpdating = False
  LastRow = Cells(Rows.Count, DataColumn).End(xlUp).Row
  For X = StartRow To LastRow
    CellVal = Cells(X, DataColumn)
    For Z = 1 To Len(CellVal)
      If Mid(CellVal, Z, 1) Like "[!0-9]" Then Mid(CellVal, Z, 1) = " "
    Next
    With Cells(X, DataColumn)
      .NumberFormat = "@"
      .Value = Replace(CellVal, " ", "")
    End With
  Next
  Application.ScreenUpdating = True
End Sub