Come stampare un foglio di lavoro senza righe vuote in Excel?
Quando si stampa un foglio di lavoro, verranno stampate anche le righe vuote. Per alcuni utenti di Excel, tendono a stampare fogli di lavoro senza righe vuote per compattare i dati e risparmiare documenti. Ma come stampare un foglio di lavoro senza righe vuote in Excel. Questo articolo fornisce due metodi per te.
Nascondi le righe vuote prima di stampare con il codice VBA
Elimina le righe vuote prima di stampare con Kutools per Excel
Nascondi le righe vuote prima di stampare con il codice VBA
Prima di stampare il foglio di lavoro, puoi eseguire il codice VBA sottostante per nascondere le righe vuote in un intervallo specificato. Si prega di fare quanto segue.
1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic per l'applicazione finestra.
2. Nel Microsoft Visual Basic per l'applicazione finestra, fare clic inserire > Moduli. Quindi copia e incolla sotto il codice VBA nella finestra del modulo.
Codice VBA: nasconde le righe vuote nell'intervallo selezionato
Sub HideBlankRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Don't support multiple ranges", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
Next
Application.ScreenUpdating = xUpdate
End Sub
3. premi il F5 chiave per eseguire il codice, quindi un Kutools for Excel si apre la finestra di dialogo, selezionare l'intervallo con le righe vuote che non si desidera stampare, quindi fare clic su OK pulsante.
Quindi tutte le righe vuote nell'intervallo selezionato vengono nascoste immediatamente. Quindi puoi iniziare a stampare il foglio di lavoro senza righe vuote.
Note:: Dopo la stampa, puoi scoprire queste righe vuote con il seguente codice VBA.
Codice VBA: mostra tutte le righe vuote nell'intervallo selezionato
Sub UnhideRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.EntireRow.Hidden = False
Application.ScreenUpdating = xUpdate
End Sub
Elimina le righe vuote prima di stampare con Kutools per Excel
Se desideri stampare un foglio di lavoro senza righe vuote, ti consigliamo di eliminare tutte le righe vuote con l'estensione Elimina righe vuote utilità di Kutools for Excel, quindi puoi stampare il foglio di lavoro manualmente.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. Clic Kutools > Elimina > Elimina righe vuote > Nell'intervallo selezionato/Nel foglio attivo/In fogli selezionati/In tutti i fogli in base alle tue esigenze. Vedi screenshot:
Note:: Per eliminare righe vuote in un intervallo, selezionare prima questo intervallo e quindi applicare la funzione.
2. Quindi viene visualizzata una finestra di dialogo per indicare quante righe sono state eliminate, fare clic su OK pulsante.
Ora tutte le righe vuote vengono eliminate. Puoi iniziare a stampare il tuo foglio di lavoro.
Note:: Questa utility supporta Annulla Ctrl + Z.
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!