Note: The other languages of the website are Google-translated. Back to English

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 una lunga colonna su una pagina con Kutools per Excel

Scheda Office Abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
  • Riutilizza qualsiasi cosa: Aggiungi le formule, i grafici e qualsiasi altra cosa più usati o complessi ai tuoi preferiti e riutilizzali rapidamente in futuro.
  • Più di 20 funzioni di testo: Estrai numero dalla stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi.
  • Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma.
  • Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro su più file Excel, PDF o CSV; Da una colonna a più colonne.
  • Incolla Salto Righe nascoste / filtrate; Count And Sum di Background Color; Invia e-mail personalizzate a più destinatari in blocco.
  • Super filtro: Crea schemi di filtri avanzati e applicali a qualsiasi foglio; Riordina per settimana, giorno, frequenza e altro; Filtro in grassetto, formule, commenti ...
  • Più di 300 potenti funzionalità; Funziona con Office 2007-2021 e 365; Supporta tutte le lingue; Facile implementazione nella tua azienda o organizzazione.

freccia blu freccia destra 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:

doc-print-colonna-lunga1


freccia blu freccia destra 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 > Moduloe 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:

doc-print-colonna-lunga2

4. Clic OKe inserisci il numero di colonne che desideri dividere. Vedi screenshot:

doc-print-colonna-lunga3

5. E fare clic su OK, la lunga colonna è stata divisa in cinque colonne in un nuovo foglio di lavoro. Vedi screenshot:

doc-print-colonna-lunga4 -2 doc-print-colonna-lunga5

freccia blu freccia destra Stampa una lunga colonna su una pagina con Kutools per 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.

Dopo aver installato Kutools per Excel, puoi procedere come segue:

1. Clic Impresa > Stampa più colonne, vedi screenshot:

doc-print-colonna-lunga6

2. Nel Stampa più colonne la finestra di dialogo:

  • Fare clic sul primo pulsante doc per selezionare il titolo dell'intervallo, quindi fare clic sul secondo pulsante docper 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:

doc-print-colonna-lunga7

3. Quindi fare clic OK, i dati della lunga lista sono stati divisi in cinque colonne in una pagina. Vedi screenshot:

doc-print-colonna-lunga8 -2 doc-print-colonna-lunga9

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

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
fondo officetab
Commenti (13)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ciao, ho una domanda relativa alla seconda opzione "Stampa colonna lunga su una pagina con codice VBA". Se ho più di una colonna nell'intervallo, come posso usare lo stesso codice. Diciamo che l'intervallo di "$ A $ 2: $ C $ 118" come posso farlo funzionare. Grazie.
Questo commento è stato fatto dal moderatore sul sito
Grazie per questa informazione! È stato molto utile e facile da usare, anche per qualcuno che non disponeva di solide competenze informatiche (ho usato il primo metodo)
Questo commento è stato fatto dal moderatore sul sito
Dopo aver cercato su Internet per ore, mi sono imbattuto in questo. È esattamente quello che stavo cercando. Bel lavoro e grazie per aver dedicato del tempo per questo.
Questo commento è stato fatto dal moderatore sul sito
Egregio Signore Grazie per questo lavoro, questo codice VBA è molto utile per il mio lavoro, sono felice di completare il mio compito in pochi secondi. Grazie. ....
Questo commento è stato fatto dal moderatore sul sito
Puoi usare una semplice formula =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0) per far fluire i dati orizzontalmente in 5 colonne. Quindi puoi selezionare Dimensioni pagina, stampare la prima riga su ogni pagina, ecc. Semplice, ordinato, senza VBA
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per modificare questa formula in modo che funzioni con 3 colonne anziché 1?
Questo commento è stato fatto dal moderatore sul sito
Anche a me interesserebbe una soluzione del genere.
Questo commento è stato fatto dal moderatore sul sito
dove va questa formula? Sto cercando di stampare più righe con più colonne su una pagina in un layout a più righe. Simile a questo:

John Smith settimana 1
John Smith settimana 2
totali di John Smith


Ho oltre 100 righe con un massimo di IJ
Questo commento è stato fatto dal moderatore sul sito
Grazie! La formula ha funzionato perfettamente!
Questo commento è stato fatto dal moderatore sul sito
Oppure puoi semplicemente copiare la tabella e incollarla in un documento Word, con tutte le colonne che desideri.
Questo commento è stato fatto dal moderatore sul sito
Ho una colonna di 10,000 numeri e la macro VBA fornirà una tabella su più pagine. Tuttavia, preferirei che ogni pagina fosse ordinata numericamente piuttosto che per colonna. Qualsiasi aiuto apprezzato.
Questo commento è stato fatto dal moderatore sul sito
Ho una colonna di 10,000 numeri univoci, tutti ordinati. Il codice VBA fornisce una tabella, ma le colonne sono ordinate individualmente.
Preferirei che ogni pagina fosse ordinata numericamente in modo facile da seguire i dati pagina per pagina. Qualsiasi suggerimento è ben accetto.
Keith
Questo commento è stato fatto dal moderatore sul sito
Ciao, Paterson,
Forse il seguente codice VBA può farti un favore:
Sub SingleToMultiColumn()
    Dim xRng As Range
    Dim xCount As Integer
    Dim xICols As Integer
    Dim xLRows As Long
    Dim xICol As Integer
    Dim xLRow As Long
    Dim xLRowSource As Long
    Dim xRowNum As Long
    Dim xFCount, xFNum, xFNum_R, xFNum_C As Long
    Dim x As Long
    Dim xWst As Worksheet
    Dim xJ As Integer
    
    Set xRng = Application.InputBox(prompt:="Select the range to convert", Type:=8)
    xICols = InputBox("How many columns do you want?")
    xRowNum = InputBox("How many rows do you want in a page?")
    xCount = xRng.Count
    xFCount = Fix(xCount / (xICols * xRowNum))
    If xICols * xRowNum * xFCount < xCount Then xFCount = xFCount + 1
    Set xWst = Worksheets.Add
    xJ = 0
    Application.ScreenUpdating = False
    For xFNum = 1 To xFCount
        If xJ = xCount Then Exit For
        For xFNum_C = 1 To xICols
            If xJ = xCount Then Exit For
            For xFNum_R = 1 To xRowNum
                If xJ = xCount Then Exit For
                xWst.Cells((xFNum - 1) * xRowNum + xFNum_R, xFNum_C) = xRng.Item(xJ + 1)
                xJ = xJ + 1
            Next
        Next
    Next
     Application.ScreenUpdating = True
End Sub



Per favore, prova, spero che possa aiutarti!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL