Note: The other languages of the website are Google-translated. Back to English

Jak wydrukować arkusz roboczy bez pustych wierszy w programie Excel?

Podczas drukowania arkusza zostaną również wydrukowane puste wiersze. Niektórzy użytkownicy programu Excel mają tendencję do drukowania arkuszy bez pustych wierszy, aby skompaktować dane i zaoszczędzić dokumenty. Ale jak wydrukować arkusz roboczy bez pustych wierszy w programie Excel. W tym artykule przedstawiono dwie metody.

Ukryj puste wiersze przed drukowaniem za pomocą kodu VBA
Usuń puste wiersze przed drukowaniem za pomocą Kutools for Excel


Ukryj puste wiersze przed drukowaniem za pomocą kodu VBA

Przed wydrukowaniem arkusza możesz uruchomić poniższy kod VBA, aby ukryć puste wiersze w określonym zakresie. Wykonaj następujące czynności.

1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic dla aplikacji okno.

2. w Microsoft Visual Basic dla aplikacji okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna modułu.

Kod VBA: Ukryj puste wiersze w wybranym zakresie

Sub HideBlankRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim I As Long
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Areas.Count > 1 Then
			MsgBox "Don't support multiple ranges", , "Kutools for Excel"
			Exit Sub
			End If
			xUpdate = Application.ScreenUpdating
			Application.ScreenUpdating = False
			For I = 1 To xRg.Rows.Count
				xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
			Next
			Application.ScreenUpdating = xUpdate
		End Sub

3. wciśnij F5 klucz do uruchomienia kodu, a następnie a Kutools dla programu Excel pojawi się okno dialogowe, wybierz zakres z pustymi wierszami, których nie chcesz drukować, a następnie kliknij OK przycisk.

Następnie wszystkie puste wiersze w wybranym zakresie są natychmiast ukrywane. Następnie możesz rozpocząć drukowanie arkusza bez pustych wierszy.

Uwagi: Po wydrukowaniu możesz odkryć te puste wiersze za pomocą następującego kodu VBA.

Kod VBA: odkryj wszystkie puste wiersze w wybranym zakresie

Sub UnhideRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate = Application.ScreenUpdating
		Application.ScreenUpdating = False
		xRg.EntireRow.Hidden = False
		Application.ScreenUpdating = xUpdate
	End Sub

Usuń puste wiersze przed drukowaniem za pomocą Kutools for Excel

Jeśli chcesz wydrukować arkusz bez pustych wierszy, zalecamy usunięcie wszystkich pustych wierszy z rozszerzeniem Usuń puste wiersze użyteczność Kutools dla programu Excel, a następnie możesz wydrukować arkusz ręcznie.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. kliknij Kutools > Usuń > Usuń puste wiersze > W wybranym zakresie/W aktywnym arkuszu/W wybranych arkuszach/We wszystkich arkuszach w oparciu o Twoje potrzeby. Zobacz zrzut ekranu:

Uwagi: Aby usunąć puste wiersze z zakresu, wybierz najpierw ten zakres, a następnie zastosuj funkcję.

2. Następnie pojawi się okno dialogowe z informacją, ile wierszy zostało usuniętych, kliknij OK przycisk.

Teraz wszystkie puste wiersze zostaną usunięte. Możesz rozpocząć drukowanie arkusza.

Uwagi: To narzędzie obsługuje Cofnij Ctrl + Z.

  Jeśli chcesz skorzystać z bezpłatnego okresu próbnego (30-dzień) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL