Jak jednocześnie ukryć wiele pustych wierszy lub kolumn w programie Excel w programie Excel?
Aby ukryć lub usunąć puste wiersze lub kolumny, możesz skondensować arkusz, w tym artykule przedstawię kilka szybkich sposobów ukrywania lub usuwania pustych wierszy lub kolumn w arkuszu programu Excel.
Szybko ukryj wiele pustych wierszy lub kolumn za pomocą kodu VBA
Szybko usuń wiele pustych wierszy lub kolumn za pomocą Kutools for Excel
Szybko ukryj wiele pustych wierszy lub kolumn za pomocą kodu VBA
Poniższy kod VBA może pomóc szybko i łatwo ukryć wiele pustych wierszy lub kolumn w arkuszu.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Ukryj wiele pustych wierszy w arkuszu
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, i zostanie wyświetlone okno zachęty przypominające o wybraniu zakresu danych, w którym chcesz ukryć puste wiersze, zobacz zrzut ekranu:
4. A następnie kliknij OK przycisk, puste wiersze są ukrywane od razu, patrz zrzut ekranu:
Note: Aby ukryć wiele pustych kolumn, zastosuj następujący kod VBA:
Kod VBA: Ukryj wiele pustych kolumn w arkuszu
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
Szybko usuń wiele pustych wierszy lub kolumn za pomocą Kutools for Excel
W tej sekcji omówię, jak usunąć wiele pustych wierszy lub kolumn, których nie chciałeś w zakresie, arkuszu lub skoroszycie. Plik Kutools dla programu Excel'S Usuń ukryte (widoczne) wiersze i kolumny narzędzie może pomóc w rozwiązaniu tego zadania tak szybko, jak to możliwe.
| Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Wybierz zakres danych, z którego chcesz usunąć puste wiersze lub kolumny, a następnie kliknij Kutools > Usuń > Usuń ukryte (widoczne) wiersze i kolumnyzobacz zrzut ekranu:
2, w Usuń ukryte (widoczne) wiersze i kolumny okno dialogowe, wybierz W wybranym zakresie in Zaglądać rozwijana lista (w razie potrzeby możesz również wybrać inną opcję z tej listy rozwijanej), wybierz Wydziwianie or kolumny z Usuń typ sekcja, i wybierz Puste wiersze or Puste kolumny pod Szczegółowy typ sekcja, patrz zrzut ekranu:
3. A następnie kliknij Ok przycisk, puste wiersze lub kolumny w zaznaczeniu zostały natychmiast usunięte. Zobacz zrzut ekranu:
Note: Dzięki tej funkcji możesz również usunąć ukryte wiersze lub kolumny, widoczne wiersze lub kolumny w zaznaczeniu, arkuszu lub skoroszycie, zgodnie z potrzebami.
Kliknij Bezpłatne pobieranie Kutools dla programu Excel teraz!
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
