Автор Тема: Поиск по условию и с последующим удалением числового значения.  (Прочитано 186 раз)

Оффлайн Light

  • Посетитель форума
  • Сообщений: 1
Помогите, пожалуйста.
Нужен макрос который будет пробегаться по столбцу G начиная с 5 ячейки, находить и удалять числовые значения.
В столбце G находятся числа и адреса.

Оффлайн Администратор

  • Administrator
  • Сообщений: 2029
Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Макрос
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