Excel VBA Макросы. Очистка ячеек, в которых числа.

Автор Light, 31 мая 2022, 18:33

Light

Нужен макрос, который будет пробегаться по столбцу G, начиная со строки 5, будет находить и удалять числа.
В столбце G находятся числа и адреса.

Администратор

Sub Макрос()
   
    Dim lr As Long, i As Long
   

    ' Отключение монитора, чтобы ускорить макрос.
        ' Можно ещё отключить формулы, если их много.
    Application.ScreenUpdating = False
   
    ' Поиск последней строки в столбце G.
        ' End не ищет в скрытых строках.
    lr = Cells(Rows.Count, "G").End(xlUp).Row
   
    ' Очистка ячеек, в которых числа.
    For i = 5 To lr
        If IsNumeric(Cells(i, "G").Value) Then
            Cells(i, "G").Value = Empty
        End If
    Next i
   
    ' Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation

End Sub