Pelena, Спасибо, но те макросы удаляют в случае, если в ячейках кроме этого текста ничего больше нет. В моём случае в ячейках ещё могут быть и числа, и буквы.
Pelena, Спасибо, но те макросы удаляют в случае, если в ячейках кроме этого текста ничего больше нет. В моём случае в ячейках ещё могут быть и числа, и буквы.vlavaden
Может быть этот макрос можно как-то подправить? [vba]
Код
Sub DeleteRows() Dim i As Long, rng As Range For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) = "RON" Then If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i)) End If Next i If Not rng Is Nothing Then rng.Delete End Sub
[/vba]
Может быть этот макрос можно как-то подправить? [vba]
Код
Sub DeleteRows() Dim i As Long, rng As Range For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) = "RON" Then If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i)) End If Next i If Not rng Is Nothing Then rng.Delete End Sub
Sub DeleteRows() Dim i As Long, rng As Range For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If InStr(Cells(i, 1), "RON") Then If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i)) End If Next i If Not rng Is Nothing Then rng.Delete End Sub
[/vba]
[vba]
Код
Sub DeleteRows() Dim i As Long, rng As Range For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If InStr(Cells(i, 1), "RON") Then If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i)) End If Next i If Not rng Is Nothing Then rng.Delete End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
