Как распечатать в Excel только строки или ячейки, содержащие данные?

Этот метод позволяет быстро распечатать только строки с данными в ограниченном диапазоне Excel с помощью VBA. Выполните следующие действия:

1. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

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 для Excel укажите диапазон, в котором нужно игнорировать пустые строки и печатать только строки с данными, затем нажмите кнопку ОК.

После этого ограниченный диапазон немедленно распечатывается с игнорированием всех пустых строк в нём.

Примечание: данный макрос VBA не поддерживает пакетную печать нескольких выделенных диапазонов с игнорированием пустых строк.

Этот метод использует функцию Удалить пустые строки из надстройки Kutools для Excel, чтобы удалить все пустые строки на активном листе или в выбранном диапазоне — после этого можно распечатать в Excel только строки с данными. Выполните следующие действия:

1. Перейдите на лист, на котором нужно распечатать только строки с данными, и выберите Kutools > Удалить > Удалить пустые строки > Активный лист.

Примечание: чтобы распечатать только строки с данными в ограниченном диапазоне, сначала выделите этот диапазон, а затем щелкните Kutools > Удалить > Удалить пустые строки > Выбранный диапазон.

2. Появится диалоговое окно Kutools для Excel с указанием количества удалённых пустых строк. Нажмите кнопку ОК, чтобы закрыть его.

Теперь вы увидите, что все пустые строки удалены с активного листа или из выбранного диапазона. См. снимок экрана:

3. Щелкните Файл(или)Кнопка Office) > Печать, чтобы распечатать только строки с данными на активном листе или в выбранном диапазоне.

Иногда возникает необходимость распечатать только ячейки с данными, игнорируя все пустые ячейки в Excel. Этот метод использует утилиту Kutools для Excel — функции Выбрать непустые ячейки и Мастер печати нескольких выделений — чтобы напечатать только заполненные ячейки в заданном диапазоне Excel.

1. Выделите диапазон, в котором нужно распечатать только ячейки с данными, и нажмите Kutools > Выделить > Выбрать непустые ячейки.

2. Появится диалоговое окно Kutools для Excel с указанием количества выделенных ячеек, содержащих данные. Нажмите кнопку ОК, чтобы закрыть его.

3. Не снимая выделения с непустых ячеек, щелкните Enterprise > Печать > Мастер печати нескольких выделений. См. снимок экрана:

4. В открывшемся диалоговом окне Мастер печати нескольких выделений вы увидите, что все выбранные непустые ячейки перечислены в списке Диапазоны для печати. Нажмите кнопку Готово.

5. Теперь все выбранные непустые ячейки скопированы и вставлены как связанные рисунки на новый лист. Щелкните Файл(или)Кнопка Office) > Печать, чтобы распечатать эти ячейки с данными.

Печать каждой строки/ячейки на отдельной странице в Excel

Отображение только Область печати на листе в Excel

Область печати, выделение и вся книга в Excel