Вывод номеров из файла

[zenner]

Добрый день! Есть следующий текстовый файл: S_nc.txt Помогите пожалуйста сделать макрос который бы выводил в одну колонку все номера телефонов(пример номера 22440905) из этого файла. У меня есть похожий макрос ( SLFAP.rar ) и если можно его переделать но чтобы форма осталась такой же! СПАСИБО!

[doober]

Смотрите вложение

[SAS888]

Можно проще.

[EducatedFool]

Ну и для кучи ещё один вариант:

Option Compare Text

Sub Поиск_AXE_10()
    On Error Resume Next: Application.ScreenUpdating = False
    Filename = GetTXTFileName: If Filename = "" Then Exit Sub

    Set fso = CreateObject("scripting.filesystemobject")    ' считываем текст из файла
    Set ts = fso.OpenTextFile(Filename, 1, True): txt = ts.ReadAll: ts.Close

    arr = Split(Replace(Replace(txt, Chr(10), " "), Chr(13), " "), Space(7))
    For i = LBound(arr) To UBound(arr)
        t = Trim(arr(i))
        If t Like String(8, "#") Then Range("a" & Rows.Count).End(xlUp).Offset(1) = t
    Next i
    Application.ScreenUpdating = True
End Sub

Sub Очистка()
    [a3:z65000].ClearContents
End Sub

Function GetTXTFileName() As String
    res = Application.GetOpenFilename("AXE-10 printouts (*.txt),", , "Выберите файл для обработки", "Открыть")
    If VarType(res) = vbBoolean Then GetTXTFileName = "" Else GetTXTFileName = res
End Function

Выводятся все номера (среди них могут быть повторяющиеся).
Если нужны только уникальные номера, воспользуйтесь решением от doober.

[zenner]

Спасибо ВСЕМ БОЛЬШОЕ!!!