Удаление строки, если ячейки D2:D500 не пустые

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление строки, если ячейки 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

Ответить

RAN

Дата: Понедельник, 14.01.2019, 13:44 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 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]

Быть или не быть, вот в чем загвоздка!

Ответить

Zagit12

Дата: Понедельник, 14.01.2019, 13:52 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Спасибо работает

Ответить

_Boroda_

Дата: Понедельник, 14.01.2019, 14:06 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

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

Ответить

Удаление строки, если ячейки D2:D500 не пустые (Макросы/Sub)

Страница 1 из 1
1