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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление пустых строк с формулами под таблицей (Макросы/Sub)
Удаление пустых строк с формулами под таблицей
soni-ka Дата: Среда, 13.11.2019, 07:37 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - soni-ka
Дата добавления - 13.11.2019 в 07:37
китин Дата: Среда, 13.11.2019, 07:49 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5981
Репутация: 928 ±
Замечаний: 0% ±

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеsoni-ka, не надо дублировать сообщения. это нарушение правил форума. дубль удалил.

Автор - китин
Дата добавления - 13.11.2019 в 07:49
soni-ka Дата: Среда, 13.11.2019, 08:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - soni-ka
Дата добавления - 13.11.2019 в 08:15
китин Дата: Среда, 13.11.2019, 08:59 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 5981
Репутация: 928 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
может не так понял, но попробуйте
[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/WM R249698041931; Z239672726538
 
Ответить
Сообщениеможет не так понял, но попробуйте
[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]

Автор - китин
Дата добавления - 13.11.2019 в 08:59
soni-ka Дата: Среда, 13.11.2019, 09:12 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

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

Я всю ночь ковыряла форумы и пыталась скомпоновать нужный алгоритм))))
Благодарю сердечно!
 
Ответить
СообщениеДа!!!!! Это необходимое решение! Ура!

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

Автор - soni-ka
Дата добавления - 13.11.2019 в 09:12
RAN Дата: Среда, 13.11.2019, 10:05 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5204
Репутация: 1046 ±
Замечаний: 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]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub qq()
    Rows(Columns(1).Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1 & ":" & _
         Columns(1).Find("*", , xlFormulas, , xlByRows, xlPrevious).Row).Delete
End Sub
[/vba]

Автор - RAN
Дата добавления - 13.11.2019 в 10:05
soni-ka Дата: Среда, 13.11.2019, 17:15 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN, Благодарю!!!!!!! Работает!
Кратко и результативно - Супер!
 
Ответить
СообщениеRAN, Благодарю!!!!!!! Работает!
Кратко и результативно - Супер!

Автор - soni-ka
Дата добавления - 13.11.2019 в 17:15
soni-ka Дата: Четверг, 14.11.2019, 14:17 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN, этот макрос очень быстро работает, Благодарю!
 
Ответить
СообщениеRAN, этот макрос очень быстро работает, Благодарю!

Автор - soni-ka
Дата добавления - 14.11.2019 в 14:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление пустых строк с формулами под таблицей (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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