Форум по VBA, Excel и Word
Почта для связи: Box1100@yandex.ru
Начало
Поиск
Вход
Регистрация
Форум по VBA, Excel и Word
»
VBA, Excel
»
VBA, макросы в Excel
»
Поиск по условию и с последующим удалением числового значения.
Печать
Страницы: [
1
]
Автор
Тема: Поиск по условию и с последующим удалением числового значения. (Прочитано 186 раз)
Light
Посетитель форума
Сообщений: 1
Поиск по условию и с последующим удалением числового значения.
«
:
31 Май 2022, 18:33 »
Помогите, пожалуйста.
Нужен макрос который будет пробегаться по столбцу G начиная с 5 ячейки, находить и удалять числовые значения.
В столбце G находятся числа и адреса.
Записан
Администратор
Administrator
Сообщений: 2029
Re: Поиск по условию и с последующим удалением числового значения.
«
Ответ #1 :
31 Май 2022, 19:10 »
Написал вам два письма на почту с заголовком "Письмо с Форума по 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
Записан
Печать
Страницы: [
1
]
Форум по VBA, Excel и Word
»
VBA, Excel
»
VBA, макросы в Excel
»
Поиск по условию и с последующим удалением числового значения.