Excel'de boş satırları yok sayarak birden çok boş olmayan satırı toplu olarak yazdırın

Bu yöntem, yalnızca Excel'de belirli bir aralıktaki verileri içeren satırları hızlı bir şekilde yazdırmak için bir VBA sunacaktır. Lütfen aşağıdaki işlemleri yapın:

1. Tuşuna basın. Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için aynı anda tuşlarına basın.

2. tık Ekle > modülve ardından aşağıdaki VBA kodunu kopyalayıp yeni açılan Modül penceresine yapıştırın.

VBA: Yalnızca Excel'de veri içeren satırları yazdırın

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. Tuşuna basın. F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

4. Kutools for Excel iletişim kutusunun açılışında, boş satırları yok saymak ve yalnızca veri içeren satırları yazdırmak istediğiniz aralığı belirtin ve OK düğmesine basın.

Ardından, belirtilen aralık, içindeki tüm boş satırlar göz ardı edilerek hemen yazdırılır.

not: Bu VBA, boş satırları yok sayarak birden çok seçimi toplu yazdırmayı desteklemez.

Bu yöntem, Kutools for Excel'in Boş Satırları Sil etkin çalışma sayfasındaki veya seçilen aralıktaki tüm boş hücreleri silmek ve ardından bu satırları yalnızca Excel'deki verilerle yazdırmak için yardımcı program. Lütfen aşağıdaki işlemleri yapın:

1. Yalnızca veri içeren satırları yazdıracağınız çalışma sayfasına gidin ve Kutools > Sil > Boş Satırları Sil > Etkin Sayfada. Ekran görüntüsüne bakın:

not: Yalnızca belirli bir aralıktaki verileri içeren satırları yazdırmak için, lütfen önce bu aralığı seçin ve ardından Kutools > Sil > Boş Satırları Sil > Seçilen Aralıkta.

2. Kutools for Excel iletişim kutusu açılır ve size kaç boş satırın silindiğini gösterir. Tıkla OK düğmesine basarak kapatın.

Ve şimdi tüm boş satırların etkin çalışma sayfasından / seçilen aralıktan silindiğini göreceksiniz. Ekran görüntüsüne bakın:

3. Tıklayın fileto (Ya da Ofis düğmesi)> Print yalnızca etkin çalışma sayfasındaki veya seçilen aralıktaki verileri içeren satırları yazdırmak için.

Bazen, Excel'deki tüm boş hücreleri yok sayarak yalnızca verileri içeren hücreleri yazdırmak isteyebilirsiniz. Bu yöntem, Kutools for Excel'in Boş Olmayan Hücreleri Seçin hizmet programı ve Çoklu Seçim Yazdırma Sihirbazı Excel'de yalnızca belirli aralıktaki verileri içeren hücreleri yazdırmak için

1. Yalnızca veri içeren hücreleri yazdıracağınız aralığı seçin ve Kutools > seç > Boş Olmayan Hücreleri Seçin. Ekran görüntüsüne bakın:

2. Kutools for Excel iletişim kutusu çıkar ve size veriye sahip kaç hücre seçildiğini gösterir. Tıkla OK düğmesine basarak kapatın.

3. Boş olmayan bu hücreleri seçmeye devam edin ve kuruluş > Baskı > Çoklu Seçim Yazdırma Sihirbazı. Ekran görüntüsüne bakın:

4. Birden Çok Seçimi Yazdırma Sihirbazı iletişim kutusunun açılışında, seçili boş olmayan tüm hücrelerin listede listelendiğini göreceksiniz. Yazdırılacak aralıklar listeyi tıklayınız Bitiş düğmesine basın.

5. Şimdi seçilen tüm boş olmayan hücreler kopyalanır ve yeni bir çalışma sayfasına bağlantılı resimler olarak yapıştırılır. lütfen tıklayın fileto (Ya da Ofis düğmesi)> Print bu hücreleri verilerle yazdırmak için.

Excel'de her satırı / hücreyi ayrı bir sayfaya yazdırın

Excel'de bir çalışma sayfasında yalnızca yazdırma alanını göster

Excel'de alanları, seçimi ve tüm çalışma kitabını yazdırın