Jak tisknout pouze řádky / buňky s daty v aplikaci Excel?
Při tisku rozsahu nebo listu v aplikaci Excel se vytisknou také některé prázdné řádky nebo prázdné buňky, které zabírají mezery v dokumentech. Tento článek hovoří o tom, jak ignorovat všechny prázdné řádky / buňky a pouze tisknout řádky / buňky s daty v aplikaci Excel.
Tiskněte pouze řádky s daty pomocí VBA v aplikaci Excel
Vytiskněte pouze řádky s daty odstraněním prázdných řádků v aplikaci Excel
Vytiskněte pouze buňky s daty zkopírováním buněk s daty na nový list v aplikaci Excel
Dávkový tisk více neprázdných řádků s ignorováním prázdných řádků v aplikaci Excel
Kutools pro Excel Průvodce tiskem více výběrů vám pomůže nejen snadno tisknout více výběrů ze stejného listu, ale také snadno tisknout více rozsahů z mnoha listů.
Tiskněte pouze řádky s daty pomocí VBA v aplikaci Excel
Tato metoda zavede VBA pro rychlý tisk řádků s daty pouze v zadaném rozsahu v aplikaci Excel. Postupujte prosím následovně:
1. zmáčkni Další + F11 současně otevřete okno Microsoft Visual Basic pro aplikace.
2. cvaknutí Vložit > Modula poté zkopírujte a vložte následující kód VBA do nového otevíracího okna modulu.
VBA: Tiskněte pouze řádky s daty v aplikaci Excel
Sub PrintSummary()
Dim xRg As Range, xRg1 As Range, xCell As Range
Dim xSht As Worksheet
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range to print:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can't select multiple selections", , "Kutools for Excel"
Exit Sub
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set xSht = Worksheets.Add(After:=Sheets(Sheets.Count))
xRg.Copy xSht.Range("A1")
Set xRg1 = xSht.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg1.Columns(1).Cells
If Application.WorksheetFunction.CountA(xCell.EntireRow) = 0 Then
xCell.EntireRow.Hidden = True
End If
Next
xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
xSht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto VBA.
4. V úvodním dialogovém okně Kutools pro Excel zadejte rozsah, ve kterém chcete ignorovat prázdné řádky a tisknout pouze řádky s daty, a klikněte na OK .
Poté se zadaný rozsah okamžitě vytiskne s ignorováním všech prázdných řádků v něm.
Poznámka: Tento VBA nepodporuje dávkový tisk více výběrů s ignorováním prázdných řádků.
Tiskněte pouze řádky s daty v aplikaci Excel
Tato metoda zavádí Kutools pro Excel Odstranit prázdné řádky nástroj pro odstranění všech prázdných buněk v aktivním listu nebo vybraném rozsahu a poté tyto řádky vytisknout s daty pouze v aplikaci Excel. Postupujte prosím následovně:
Kutools pro Excel - Baleno s více než 300 základními nástroji pro Excel. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Stáhnout nyní!
1. Přejděte na list, kde budete tisknout pouze řádky s daty, a klikněte na Kutools > Vymazat > Odstranit prázdné řádky > V aktivním listu. Viz snímek obrazovky:
Poznámka: Chcete-li tisknout řádky s daty pouze v zadaném rozsahu, nejprve vyberte tento rozsah a poté klikněte Kutools > Vymazat > Odstranit prázdné řádky > Ve zvoleném rozsahu.
2. Otevře se dialogové okno Kutools pro Excel a ukáže vám, kolik prázdných řádků bylo odstraněno. Klikněte na ikonu OK pro jeho zavření.
A teď uvidíte, že všechny prázdné řádky jsou odstraněny z aktivního listu / vybraného rozsahu. Viz snímek obrazovky:
3. Klepněte na tlačítko Soubor (nebo Tlačítko Office)> Tisk tisknout pouze řádky s daty v aktivním listu nebo vybraném rozsahu.
Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now
Tiskněte pouze buňky s daty v aplikaci Excel
Někdy můžete chtít tisknout buňky s daty pouze při ignorování všech prázdných buněk v aplikaci Excel. Tato metoda představí program Kutools pro Excel Vyberte neprázdné buňky utility a Průvodce tiskem více výběrů tisknout pouze buňky s daty ve specifikovaném rozsahu v aplikaci Excel.
Kutools pro Excel - Baleno s více než 300 základními nástroji pro Excel. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Stáhnout nyní!
1. Vyberte rozsah, kde budete tisknout pouze buňky s daty, a klepněte na Kutools > vybrat > Vyberte neprázdné buňky. Viz snímek obrazovky:
2. Vyjde dialogové okno Kutools pro Excel a ukáže vám, kolik buněk s daty bylo vybráno. Klikněte na ikonu OK pro jeho zavření.
3. Pokračujte ve výběru těchto neprázdných buněk a klepněte na Enterprise > Tisk > Průvodce tiskem více výběrů. Viz snímek obrazovky:
4. V úvodním dialogovém okně Průvodce tiskem více výběrů uvidíte, že jsou v seznamu uvedeny všechny vybrané neprázdné buňky Rozsahy pro tisk seznamu, klikněte prosím na úprava .
5. Nyní jsou všechny vybrané neprázdné buňky zkopírovány a vloženy jako spojené obrázky do nového listu. prosím klikněte Soubor (nebo Tlačítko Office)> Tisk vytisknout tyto buňky daty.
Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now
DemoPrint pouze řádky / buňky s daty
Související články:
Vytiskněte každý řádek / buňku na samostatnou stránku v aplikaci Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!