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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление строки, если ячейки D2:D500 не пустые - Мир MS Excel

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

Excel 2016
Прошу помочь, не могу создать макрос, для создания новой страницы и копирования таблицы, и удаления из неё тех строк где ячейки D2:D500 не пустые.
К сообщению приложен файл: 12345.xlsm(17.4 Kb)


Сообщение отредактировал Zagit12 - Понедельник, 14.01.2019, 13:12
 
Ответить
СообщениеПрошу помочь, не могу создать макрос, для создания новой страницы и копирования таблицы, и удаления из неё тех строк где ячейки D2:D500 не пустые.

Автор - Zagit12
Дата добавления - 14.01.2019 в 13:11
RAN Дата: Понедельник, 14.01.2019, 13:44 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5000
Репутация: 994 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub qq()
    ActiveSheet.Copy After:=ActiveSheet
    For i = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
        If Len(Cells(i, 4)) Then Rows(i).Delete
    Next
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub qq()
    ActiveSheet.Copy After:=ActiveSheet
    For i = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
        If Len(Cells(i, 4)) Then Rows(i).Delete
    Next
End Sub
[/vba]

Автор - RAN
Дата добавления - 14.01.2019 в 13:44
Zagit12 Дата: Понедельник, 14.01.2019, 13:52 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо работает
 
Ответить
СообщениеСпасибо работает

Автор - Zagit12
Дата добавления - 14.01.2019 в 13:52
_Boroda_ Дата: Понедельник, 14.01.2019, 14:06 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14885
Репутация: 5882 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Еще вариант
[vba]
Код
Sub tt()
    ActiveSheet.Copy After:=ActiveSheet
    On Error Resume Next
    Range("D2").Resize(Rows.Count - 1).SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще вариант
[vba]
Код
Sub tt()
    ActiveSheet.Copy After:=ActiveSheet
    On Error Resume Next
    Range("D2").Resize(Rows.Count - 1).SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 14.01.2019 в 14:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строки, если ячейки D2:D500 не пустые (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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