Як приховати кілька Excel порожніх рядків або стовпців одночасно в Excel?
Щоб приховати чи видалити порожні рядки або стовпці, це може допомогти вам ущільнити робочий аркуш, у цій статті я представив вам кілька швидких способів приховати чи видалити порожні рядки або стовпці на аркуші Excel.
Швидко сховайте кілька порожніх рядків або стовпців за допомогою коду VBA
Швидко видаліть кілька порожніх рядків або стовпців за допомогою Kutools для Excel
Швидко сховайте кілька порожніх рядків або стовпців за допомогою коду VBA
Наступний код VBA може допомогти вам швидко і легко приховати кілька порожніх рядків або стовпців на аркуші.
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Натисніть Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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 для Excel
У цьому розділі я розповім про те, як видалити кілька порожніх рядків або стовпців, які ви не бажали, у діапазоні, аркуші чи книзі. Kutools для ExcelАвтора Видалити приховані (видимі) рядки та стовпці утиліта може допомогти вам вирішити це завдання якомога швидше.
Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, будь ласка, виконайте наступне:
1. Виберіть діапазон даних, для якого потрібно видалити порожні рядки або стовпці, а потім клацніть Кутулс > видаляти > Видалити приховані (видимі) рядки та стовпці, див. скріншот:
2, в Видалити приховані (видимі) рядки та стовпці діалогове вікно, виберіть У вибраному діапазоні in Заглядати випадаючий список (ви також можете вибрати інший варіант у цьому випадаючому списку, як вам потрібно), виберіть ряди or Колони від Тип видалення розділ, і виберіть Пусті ряди or Пусті стовпці під Детальний тип розділ, див. знімок екрана:
3. А потім клацніть Ok кнопки, порожні рядки або стовпці у виділенні були видалені відразу. Дивіться знімок екрана:
примітки: За допомогою цієї функції ви також можете видаляти приховані рядки або стовпці, видимі рядки або стовпці у виділенні, аркуші або книзі, як вам потрібно.
Натисніть Безкоштовно завантажити Kutools для Excel зараз!
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!