Цитата kontox:
его содержимое,я прикрепил. »
|
Вы прикрепили файл *.xlsx, а не *.txt.
Зачем именно VBA? Я бы работал непосредственно с текстовым файлом посредством WSH.
В любом случае, и там, и там код будет практически идентичен. На VBA для приложенной Рабочей книги:
Код:
Option Explicit
Sub Sample()
Dim objRange As Range
With CreateObject("VBScript.RegExp")
.Pattern = "\d{5,}"
.Global = True
For Each objRange In Intersect(ThisWorkbook.Worksheets.Item("Лист1").UsedRange.Offset(1, 0), ThisWorkbook.Worksheets.Item("Лист1").Columns("G"))
objRange.Value = .Replace(objRange.Value, "")
Next objRange
End With
End Sub