Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Найти и удалить строки макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти и удалить строки макросом (Формулы/Formulas)
Найти и удалить строки макросом
vlavaden Дата: Среда, 26.07.2017, 22:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Подскажите, пожалуйста, как макросом найти строки содержащие текст "RON" и удалить их?
К сообщению приложен файл: 8173871.xlsm(9Kb)
 
Ответить
СообщениеПодскажите, пожалуйста, как макросом найти строки содержащие текст "RON" и удалить их?

Автор - vlavaden
Дата добавления - 26.07.2017 в 22:12
Pelena Дата: Среда, 26.07.2017, 22:32 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11840
Репутация: 2608 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Посмотрите Готовые решения на эту тему


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПосмотрите Готовые решения на эту тему

Автор - Pelena
Дата добавления - 26.07.2017 в 22:32
vlavaden Дата: Среда, 26.07.2017, 22:50 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Спасибо, но те макросы удаляют в случае, если в ячейках кроме этого текста ничего больше нет. В моём случае в ячейках ещё могут быть и числа, и буквы.
 
Ответить
СообщениеPelena, Спасибо, но те макросы удаляют в случае, если в ячейках кроме этого текста ничего больше нет. В моём случае в ячейках ещё могут быть и числа, и буквы.

Автор - vlavaden
Дата добавления - 26.07.2017 в 22:50
vlavaden Дата: Среда, 26.07.2017, 22:54 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Может быть этот макрос можно как-то подправить?
[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
[/vba]

Автор - vlavaden
Дата добавления - 26.07.2017 в 22:54
Pelena Дата: Среда, 26.07.2017, 22:57 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11840
Репутация: 2608 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
[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
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение[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
[/vba]

Автор - Pelena
Дата добавления - 26.07.2017 в 22:57
vlavaden Дата: Среда, 26.07.2017, 23:04 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Спасибо, работает, только для столбца "В" нужно, извините за бестолковость.
 
Ответить
СообщениеPelena, Спасибо, работает, только для столбца "В" нужно, извините за бестолковость.

Автор - vlavaden
Дата добавления - 26.07.2017 в 23:04
Pelena Дата: Среда, 26.07.2017, 23:06 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11840
Репутация: 2608 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
[vba]
Код
    For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
        If InStr(Cells(i, 2), "RON") Then
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение[vba]
Код
    For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
        If InStr(Cells(i, 2), "RON") Then
[/vba]

Автор - Pelena
Дата добавления - 26.07.2017 в 23:06
vlavaden Дата: Среда, 26.07.2017, 23:07 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Огромное Вам спасибо!
 
Ответить
СообщениеPelena, Огромное Вам спасибо!

Автор - vlavaden
Дата добавления - 26.07.2017 в 23:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти и удалить строки макросом (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!