Excelで空の行を無視して、複数の空白以外の行をバッチ印刷します

このメソッドは、Excelで指定された範囲内のデータのみを含む行をすばやく印刷するVBAを導入します。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2。 クリック インセット > モジュール、次に、次のVBAコードをコピーして、新しく開いているモジュールウィンドウに貼り付けます。

VBA：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。 プレス F5 キーを押すか、 ラン このVBAを実行するためのボタン。

4. [Kutools for Excel]ダイアログボックスを開いて、空白行を無視し、データを含む行のみを印刷する範囲を指定して、[ OK

次に、指定された範囲が、その中のすべての空白行を無視してすぐに出力されます。

Note：このVBAは、空白行を無視した複数選択のバッチ印刷をサポートしていません。

このメソッドは、Excel用のKutoolsを導入します 空白行を削除する アクティブなワークシートまたは選択した範囲内のすべての空白セルを削除し、Excelでのみデータを含むそれらの行を印刷するユーティリティ。 次のようにしてください。

1.データのみを含む行を印刷するワークシートに移動し、[ クツール > 削除 > 空白行を削除する > アクティブシート内。 スクリーンショットを参照してください：

Note：指定した範囲のデータのみを含む行を印刷するには、最初にこの範囲を選択してから、をクリックしてください クツール > 削除 > 空白行を削除する > 選択した範囲内.

2. Kutools for Excelダイアログボックスがポップアップ表示され、削除された空白行の数が表示されます。 クリック OK ボタンを押して閉じます。

これで、アクティブなワークシート/選択した範囲からすべての空白行が削除されます。 スクリーンショットを参照してください：

3。 クリック File （または オフィスボタン）> 印刷物 アクティブなワークシートまたは選択した範囲のデータを含む行のみを印刷します。

Excelの空白のセルをすべて無視して、データのみを含むセルを印刷したい場合があります。 このメソッドは、Excel用のKutoolsを導入します 非空白セルを選択 ユーティリティと 複数選択の印刷ウィザード Excelで指定された範囲のデータを含むセルのみを印刷します。

1.データを含むセルのみを印刷する範囲を選択し、をクリックします クツール > 選択 > 非空白セルを選択。 スクリーンショットを参照してください：

2. [Kutools for Excel]ダイアログボックスが表示され、データを含むセルがいくつ選択されているかが示されます。 クリック OK ボタンを押して閉じます。

3.これらの空白でないセルを選択し続け、クリックします Enterprise > 印刷 > 複数選択の印刷ウィザード。 スクリーンショットを参照してください：

4. [複数選択の印刷ウィザード]ダイアログボックスを開くと、選択したすべての空白以外のセルがリストされていることがわかります。 印刷する範囲 リストをクリックしてください 終了

5.これで、選択したすべての空白以外のセルがコピーされ、リンクされた画像として新しいワークシートに貼り付けられます。 クリックしてください File （または Officeボタン）> 印刷物 これらのセルにデータを出力します。

各行/セルをExcelの個別のページに印刷します

Excelのワークシートに印刷領域のみを表示する

Excelで領域、選択範囲、およびブック全体を印刷します