Hur stoppar man tomma rader när man skriver ut kalkylblad?
Om det finns flera tomma rader i ditt kalkylblad kommer normalt även de tomma raderna att skrivas ut när du skriver ut arket. Att skriva ut kalkylbladet genom att ignorera de tomma raderna kan spara papper för oss, i det här fallet, hur kan du stoppa tomma rader när du skriver ut ett kalkylblad?
Stoppa tomma rader när du skriver ut kalkylblad med VBA-kod
Stoppa tomma rader när du skriver ut 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 för att köra den här koden, och en uppmaningsruta dyker upp för att påminna dig om att välja det dataintervall som 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.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!