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

Вход

Регистрация

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

 

= Мир MS Excel/Пустые строки в таблице удалить - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Пустые строки в таблице удалить (Формулы/Formulas)
Пустые строки в таблице удалить
Нана123 Дата: Среда, 06.01.2021, 16:13 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 1 ±
Замечаний: 0% ±

Здравствуйте!
Подскажите пожалуйста:можно ли как то попроще удалить пустые строки в таблице? Вот ячейки получается (найти/заменить значок и там можно найти про ячейки) А вот строки никак не удается,а выделять их очень много отдельно. В интернете читала-но очень трудно это делается,для знающих пишут.У меня виндовс 7 максим,32 р.
Спасибо.
 
Ответить
СообщениеЗдравствуйте!
Подскажите пожалуйста:можно ли как то попроще удалить пустые строки в таблице? Вот ячейки получается (найти/заменить значок и там можно найти про ячейки) А вот строки никак не удается,а выделять их очень много отдельно. В интернете читала-но очень трудно это делается,для знающих пишут.У меня виндовс 7 максим,32 р.
Спасибо.

Автор - Нана123
Дата добавления - 06.01.2021 в 16:13
Pelena Дата: Среда, 06.01.2021, 21:23 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17222
Репутация: 3751 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Фильтром не вариант? Отфильтровать пустые и удалить


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеФильтром не вариант? Отфильтровать пустые и удалить

Автор - Pelena
Дата добавления - 06.01.2021 в 21:23
Alex_ST Дата: Суббота, 09.01.2021, 16:00 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3121
Репутация: 592 ±
Замечаний: 0% ±

2003
[vba]
Код
Sub DeleteEmptyRows()
'---------------------------------------------------------------------------------------
' Procedure    : DeleteEmptyRows
' Purpose      : Удаление всех пустых строк в выделенном диапазоне
'---------------------------------------------------------------------------------------
   If MsgBox("Удалить все пустые строки в выделенном диапазоне?", vbYesNo + vbQuestion, "Удалить пустые строки?") = vbNo Then Exit Sub
   Dim lLastRow&, i&
   With Intersect(Selection.EntireRow, ActiveSheet.UsedRange)
      lLastRow = .Row - 1 + .Rows.Count
      With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
      For i = lLastRow To 1 Step -1
         If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete
      Next i
      With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
   End With
End Sub
[/vba]



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
Сообщение[vba]
Код
Sub DeleteEmptyRows()
'---------------------------------------------------------------------------------------
' Procedure    : DeleteEmptyRows
' Purpose      : Удаление всех пустых строк в выделенном диапазоне
'---------------------------------------------------------------------------------------
   If MsgBox("Удалить все пустые строки в выделенном диапазоне?", vbYesNo + vbQuestion, "Удалить пустые строки?") = vbNo Then Exit Sub
   Dim lLastRow&, i&
   With Intersect(Selection.EntireRow, ActiveSheet.UsedRange)
      lLastRow = .Row - 1 + .Rows.Count
      With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
      For i = lLastRow To 1 Step -1
         If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete
      Next i
      With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
   End With
End Sub
[/vba]

Автор - Alex_ST
Дата добавления - 09.01.2021 в 16:00
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Пустые строки в таблице удалить (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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