Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата kontox:
его содержимое,я прикрепил. »
Вы прикрепили файл *.xlsx, а не *.txt.

Цитата kontox:
средствами VBA? »
Зачем именно 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

Последний раз редактировалось Iska, 14-10-2018 в 18:14. Причина: Поправил некорреткно скопированную кириллицу в имени Рабочего листа: Ëèñò1 → Лист1

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:10, 13-10-2018 | #2