Hur förhindrar man att tomma rader skrivs ut i Excel?

Om ditt Excel-kalkylblad innehåller tomma rader kommer de vanligtvis att skrivas ut tillsammans med resten av dina data, vilket slösar papper och utrymme. För att undvika detta kan du använda en VBA-kod för att automatiskt dölja tomma rader innan utskrift. Den här guiden visar hur du ställer in och använder den här koden för att endast skriva ut rader med data, vilket säkerställer en renare och effektivare utskrift.

Uteslut tomma rader när du skriver ut ett kalkylblad med VBA-kod

Uteslut tomma rader när du skriver ut ett kalkylblad med VBA-kod

Med följande VBA-kod kan du skriva ut kalkylbladet utan tomma rader, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Stoppa tomma rader vid utskrift:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. Tryck sedan på F5 nyckel för att köra den här koden. En uppmaningsruta kommer att visas som ber dig att välja det dataintervall du vill skriva ut. Se skärmdump:

4. Och klicka sedan på OK, och ditt valda intervall har skrivits ut på en gång utan de tomma raderna.