удаление чисел

[Михаил2261]

Здравствуйте!
Подскажите как решить
Выдали продолжение –
Нужно в строках
1 7 18 36 44
5 9 28 36 46
5 12 15 17 48
6 12 18 35 58
Оставить числа на 8 (18 28 38 48)
Т.е.
18
28
48
18 58

Остальные числа удалить,
задачи задают с приветом
спасибо

[EducatedFool]

Вот вам макрос:

Sub test()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange
        If Not (cell Like "*8") Then cell.ClearContents
    Next cell
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
End Sub

[Михаил2261]

спасибо посмотрим