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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление пустых строк по условию пустых 4 столбцов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление пустых строк по условию пустых 4 столбцов (Макросы/Sub)
Удаление пустых строк по условию пустых 4 столбцов
grh1 Дата: Четверг, 06.06.2019, 13:49 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 93
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, уважаемые знатоки макросов!
Имеется макрос, который удаляет пустые строки в документе. (условие, что строка ВСЯ пустая)
Как добавить условие, чтобы удаление происходило при пустых первых 4 столбцах (в примере выделил желтым)
Если первые 4 столбца пустые - удаляем строку.

Спасибо

Сам макрос такой:
[vba]
Код
Sub www()
    Dim i&
    With ActiveSheet.UsedRange
        For i = 1 To .Columns.Count
            .AutoFilter Field:=i, Criteria1:="="
        Next
        .Offset(1).SpecialCells(12).EntireRow.Delete
    End With: ActiveSheet.AutoFilterMode = 0
End Sub
[/vba]
К сообщению приложен файл: 7078916.xls(44.0 Kb)


Сообщение отредактировал grh1 - Четверг, 06.06.2019, 13:54
 
Ответить
СообщениеДобрый день, уважаемые знатоки макросов!
Имеется макрос, который удаляет пустые строки в документе. (условие, что строка ВСЯ пустая)
Как добавить условие, чтобы удаление происходило при пустых первых 4 столбцах (в примере выделил желтым)
Если первые 4 столбца пустые - удаляем строку.

Спасибо

Сам макрос такой:
[vba]
Код
Sub www()
    Dim i&
    With ActiveSheet.UsedRange
        For i = 1 To .Columns.Count
            .AutoFilter Field:=i, Criteria1:="="
        Next
        .Offset(1).SpecialCells(12).EntireRow.Delete
    End With: ActiveSheet.AutoFilterMode = 0
End Sub
[/vba]

Автор - grh1
Дата добавления - 06.06.2019 в 13:49
Pelena Дата: Четверг, 06.06.2019, 14:04 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14130
Репутация: 3088 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Видимо, цикл сделать от 1 до 4
[vba]
Код
For i = 1 To 4
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВидимо, цикл сделать от 1 до 4
[vba]
Код
For i = 1 To 4
[/vba]

Автор - Pelena
Дата добавления - 06.06.2019 в 14:04
grh1 Дата: Четверг, 06.06.2019, 14:08 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 93
Репутация: 0 ±
Замечаний: 0% ±

Pelena,
Спасибо большое - ларчик открывался до безобразия просто.
Спасибо еще раз.

Тему закрываем.
 
Ответить
СообщениеPelena,
Спасибо большое - ларчик открывался до безобразия просто.
Спасибо еще раз.

Тему закрываем.

Автор - grh1
Дата добавления - 06.06.2019 в 14:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление пустых строк по условию пустых 4 столбцов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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