Удаление пустых строк с формулами под таблицей

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление пустых строк с формулами под таблицей (Макросы/Sub)

soni-ka

Дата: Среда, 13.11.2019, 07:37 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2010

Доброго времени суток!
Подскажите, пожалуйста, как можно удалить пустые строки с формулами под таблицей.
Есть сплошная таблица, количество заполненных строк меняется (поэтому нельзя прописать удаление конкретных строк).
Внутри пустых строк нет.
Когда заканчиваются значения, строки с формулами не определяются как пустые и я не могу их удалить с помощью кода, моих навыков не хватает.
Пробовала несколько способов. Даже есть вариант, как определить последнюю заполненную ячейку в моем случае, но как удалить после нее пустые с формулами - не доходит.
Буду благодарна решению!

К сообщению приложен файл: 0472299.xlsm (31.8 Kb)

Ответить

китин

Дата: Среда, 13.11.2019, 07:49 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

soni-ka, не надо дублировать сообщения. это нарушение правил форума. дубль удалил.

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

soni-ka

Дата: Среда, 13.11.2019, 08:15 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2010

китин, спасибо!
Завис комп и дважды опубликовала, а как удалить дубль не нашла.

Ответить

китин

Дата: Среда, 13.11.2019, 08:59 | Сообщение № 4

Группа: Модераторы

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

может не так понял, но попробуйте
[vba]

Код

Sub Udalenie_Pustyh_Strok()
Dim r As Long, FirstRow As Long, LastRow As Long

FirstRow = ActiveSheet.UsedRange.Row
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Set rF = ActiveSheet.UsedRange.Find("*", , xlValues, xlWhole, , xlPrevious)
    If Not rF Is Nothing Then
        lLastRow = rF.Row    'последняя заполненная строка
    End If
For r = LastRow To lLastRow + 1 Step -1
Rows(r).Delete
Next
End Sub

[/vba]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

soni-ka

Дата: Среда, 13.11.2019, 09:12 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2010

Да!!!!! Это необходимое решение! Ура!

Я всю ночь ковыряла форумы и пыталась скомпоновать нужный алгоритм))))
Благодарю сердечно!

Ответить

RAN

Дата: Среда, 13.11.2019, 10:05 | Сообщение № 6

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

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

Сообщений: 5660

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

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

2010

[vba]

Код

Sub qq()
Rows(Columns(1).Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1 & ":" & _
Columns(1).Find("*", , xlFormulas, , xlByRows, xlPrevious).Row).Delete
End Sub

[/vba]