Come stampare una colonna lunga su una pagina in Excel?
Supponendo di avere un lungo elenco di dati in una colonna, forse 200 righe, e ora è necessario stamparli, ma quando si stampa, utilizza circa 5 pagine di carta, con una sola colonna sul lato sinistro e molto spazio bianco su il lato corretto. In parole, puoi colonna, ma Excel non ha questa funzione. Come si stampano i dati della lunga lista su una pagina per risparmiare la carta?
Stampa una lunga colonna su una pagina con la formula
Stampa una lunga colonna su una pagina con codice VBA
Stampa lunga colonna su una pagina con Kutools for Excel
Stampa una lunga colonna su una pagina con la formula
Qui posso presentarti una lunga formula per risolvere questo problema, per favore fai come segue:
1. In un nuovo foglio di lavoro della cartella di lavoro attiva, inserisci la formula =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) nella cella A1.
Note: Sheet1 è il foglio di lavoro che ha la lunga lista che vuoi colonna.
45 è il numero di riga in cui si desidera elencare i dati in una colonna.
Sono tutte variabili e puoi modificarle secondo le tue necessità.
2. Quindi selezionare la cella A1 e trascinare il quadratino di riempimento verso il basso fino alla riga 45, quindi continuare a trascinare il quadratino di riempimento verso destra finché i dati non sono stati visualizzati. E la lunga colonna è stata divisa in più colonne per adattarsi a una pagina in un nuovo foglio di lavoro. Vedi screenshot:
Stampa una lunga colonna su una pagina con codice VBA
Il seguente codice VBA può anche aiutarti a dividere un lungo elenco di dati in più colonne, in modo da poter stampare i dati e risparmiare carta.
1. Tieni premuto il ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.
Sub SingleToMultiColumn()
Dim rng As Range
Dim iCols As Integer
Dim lRows As Long
Dim iCol As Integer
Dim lRow As Long
Dim lRowSource As Long
Dim x As Long
Dim wks As Worksheet
Set rng = Application.InputBox _
(prompt:="Select the range to convert", _
Type:=8)
iCols = InputBox("How many columns do you want?")
lRowSource = rng.Rows.Count
lRows = lRowSource / iCols
If lRows * iCols <> lRowSource Then lRows = lRows + 1
Set wks = Worksheets.Add
lRow = 1
x = 1
For iCol = 1 To iCols
Do While x <= lRows And lRow <= lRowSource
Cells(x, iCol) = rng.Cells(lRow, 1)
x = x + 1
lRow = lRow + 1
Loop
x = 1
Next
End Sub
3. Quindi premere il tasto F5 chiave per eseguire questo codice e selezionare i dati dell'elenco che si desidera dividere nella finestra di dialogo visualizzata, vedere screenshot:
4. Clic OKe inserisci il numero di colonne che desideri dividere. Vedi screenshot:
5. E fare clic su OK, la lunga colonna è stata divisa in cinque colonne in un nuovo foglio di lavoro. Vedi screenshot:
 |
 |
 |
Stampa lunga colonna su una pagina con Kutools for Excel
Sia la formula lunga che il codice VBA potrebbero essere difficili per te, qui posso presentarti un metodo semplice e conveniente per risolvere questo problema. Kutools for Excel'S Stampa più colonne può aiutarti a dividere rapidamente la colonna lunga in più colonne in modo da poterle stampare in modo ragionevole.
Kutools for Excel include più di 300 utili strumenti Excel. Prova gratuita senza limitazioni per 30 giorni. Get it Now.
Quando hai installato Kutools for Excel, puoi procedere come segue:
1. Clic Impresa > Stampa più colonne, vedi screenshot:
2. Nel Stampa più colonne la finestra di dialogo:
- Fare clic sul primo
per selezionare il titolo dell'intervallo, quindi fare clic sul secondo per selezionare la colonna che si desidera dividere. - Quindi specifica il numero di righe da cui vuoi inserire per pagina Righe per pagina stampatae inserisci il numero di colonne che desideri in una pagina sotto Numero di segmenti. Vedi screenshot:
3. Quindi fare clic OK, i dati della lunga lista sono stati divisi in cinque colonne in una pagina. Vedi screenshot:
 |
|
 |
Note:
1. Il titolo verrà aggiunto prima di ogni colonna.
2. Se controlli Crea un collegamento con il foglio attivo opzione, i nuovi dati del foglio di lavoro possono essere collegati ai dati di origine.
Se vuoi saperne di più su questa funzione, fai clic su Stampa più colonne.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze in Excel con Kutools for Excele sperimenta l'efficienza come mai prima d'ora. Kutools for 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 rende il tuo lavoro molto più semplice
- 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!
