Как скрыть сразу несколько пустых строк или столбцов в Excel в Excel?
Скрытие или удаление пустых строк или столбцов может помочь вам сжать рабочий лист. В этой статье я представлю вам несколько быстрых способов скрыть или удалить пустые строки или столбцы на листе Excel.
Быстро скрыть несколько пустых строк или столбцов с помощью кода VBA
Быстро удалите несколько пустых строк или столбцов с помощью Kutools for Excel
Быстро скрыть несколько пустых строк или столбцов с помощью кода VBA
Следующий код VBA может помочь вам быстро и легко скрыть несколько пустых строк или столбцов на листе.
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: скрыть несколько пустых строк на листе
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и отобразится окно подсказки, напоминающее вам о выборе диапазона данных, в котором вы хотите скрыть пустые строки, см. снимок экрана:
4, Затем нажмите OK кнопки, пустые строки сразу скрываются, см. снимок экрана:
Внимание: Чтобы скрыть несколько пустых столбцов, примените следующий код VBA:
Код VBA: скрыть несколько пустых столбцов на листе
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
Быстро удалите несколько пустых строк или столбцов с помощью Kutools for Excel
В этом разделе я расскажу о том, как удалить несколько пустых строк или столбцов, которые вам не нужны в диапазоне, листе или книге. В Kutools for ExcelАвтора Удалить скрытые (видимые) строки и столбцы утилита поможет вам решить эту задачу максимально быстро.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Выберите диапазон данных, в котором вы хотите удалить пустые строки или столбцы, а затем щелкните Кутулс > Удалить > Удалить скрытые (видимые) строки и столбцы, см. снимок экрана:
2. В Удалить скрытые (видимые) строки и столбцы диалоговое окно, выберите В выбранном диапазоне in Заглянуть раскрывающийся список (вы также можете выбрать другой вариант в этом раскрывающемся списке по мере необходимости), выберите Ряды or Колонки из Удалить тип , и выберите Пустые строки or Пустые столбцы под Подробный тип раздел, см. снимок экрана:
3, Затем нажмите Ok Кнопка, пустые строки или столбцы в выделенном фрагменте будут сразу удалены. Смотрите скриншот:
Внимание: С помощью этой функции вы также можете удалить скрытые строки или столбцы, видимые строки или столбцы в выделенном, рабочем листе или книге по мере необходимости.
Нажмите "Бесплатная загрузка Kutools for Excel"!
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!