Excel でデータが含まれる行やセルだけを印刷するには、どうすればよいですか？

この方法では、Excel の限定された範囲内にあるデータを含む行だけを素早く印刷するための VBA をご紹介します。以下の手順に従ってください。

1。Alt＋F11キーを同時に押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。

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ボタンをクリックします。

すると、指定された範囲がただちに印刷され、その中の空白行はすべて無視されます。

注：この VBA は、空白行を無視して複数の選択範囲を一括印刷する機能には対応していません。

この方法では、Kutools for Excel の空白行を削除するユーティリティを使って、アクティブなワークシートまたは選択範囲内のすべての空白セルを削除し、その後、Excel でデータが含まれる行のみを印刷します。以下の手順に従ってください。

1。データが含まれる行のみを印刷するワークシートに移動し、Kutools＞削除＞空白行を削除する＞アクティブなワークシートをクリックします。

注：制限された範囲内でデータが含まれる行のみを印刷する場合は、まずこの範囲を選択し、次にKutools＞削除＞空白行を削除する＞選択した範囲をクリックしてください。

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

これで、「アクティブなワークシート／範囲を選択してください」からすべての空白行が削除されたことを確認できます。スクリーンショットをご覧ください。

3。ファイル（または)Office ボタン）＞印刷をクリックし、アクティブなワークシートまたは選択範囲内でデータが含まれる行のみを印刷してください。

場合によっては、Excel で空白セルをすべて無視し、データが含まれるセルだけを印刷したいことがあります。そんなときは、Kutools for Excel の空白でないセルを選択ユーティリティと複数選択ウィザードを使えば、指定範囲内にあるデータ入りセルだけを簡単に印刷できます。

1。データが含まれるセルのみを印刷範囲として選択し、Kutools＞選択＞空白でないセルを選択をクリックします。

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

3。これらの非空白セルの選択を維持したまま、Enterprise＞印刷＞複数選択ウィザードをクリックしてください。スクリーンショットをご確認ください。

4。表示された複数選択ウィザードダイアログボックスで、空白でないセルがすべて印刷する範囲リストに表示されますので、完了ボタンをクリックします。

5。これで、すべての空白でないセルがリンク付きの画像として新しいワークシートにコピー＆ペーストされました。ファイル（または)Office ボタン）＞印刷をクリックして、これらのデータを含むセルを印刷してください。

Excel で各行／各セルを別々のページに印刷する

Excel でワークシート内の印刷範囲のみを表示する

Excel での印刷範囲、選択範囲、およびブック全体