Come stampare una colonna lunga in una sola pagina in Excel?

Supponiamo che tu abbia un elenco lungo di dati in una colonna, forse 200 righe, e ora devi stamparli, ma quando provi a stampare, vengono utilizzati circa 5 fogli di carta, con solo una colonna sul lato sinistro e molto spazio bianco sul lato destro. In Word puoi dividere in colonne, ma Excel non ha questa funzione. Come puoi stampare i dati dell'elenco lungo su una sola pagina per risparmiare carta?

Stampa una colonna lunga su una pagina con una formula

Stampa una colonna lunga su una pagina con il codice VBA

Stampa una colonna lunga su una pagina con Kutools per Excel

Stampa una colonna lunga su una pagina con una formula

Qui ti posso presentare una formula lunga per risolvere questo problema, procedi come segue:

1. In un nuovo foglio di lavoro della tua cartella di lavoro corrente, inserisci la formula =SE(OFFSET(Sheet1!$A$1;(COLONNA()-1)*45+RIGA()-1;0)="";"";OFFSET(Sheet1!$A$1;(COLONNA()-1)*45+RIGA()-1;0)) nella cella A1.

2. Quindi seleziona la cella A1, trascina la maniglia di riempimento fino alla riga 45, e poi continua a trascinare la maniglia di riempimento verso destra finché i dati non vengono visualizzati. La colonna lunga è stata divisa in più colonne per adattarsi a una sola pagina in un nuovo foglio di lavoro. Vedi screenshot:

Stampa una colonna lunga su una pagina con il codice VBA

Il seguente codice VBA può anche aiutarti a dividere un elenco lungo di dati in più colonne, in modo da poter stampare i dati e risparmiare carta.

1. Tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic per Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice 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. Poi premi il tasto F5 per eseguire questo codice, e seleziona i dati dell'elenco che vuoi dividere nella finestra di dialogo che appare, vedi screenshot:

4. Clicca OK, e inserisci il numero di colonne in cui vuoi dividere. Vedi screenshot:

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

Stampa una colonna lunga su una pagina con Kutools per Excel

Sia la formula lunga che il codice VBA possono essere difficili per te, qui ti posso presentare un metodo facile e conveniente per risolvere questo problema. La funzione Dividi Dati di Kutools per Excel può aiutarti a dividere rapidamente la colonna lunga in più colonne in modo da poterle stampare in modo ragionevole.

Kutools per Excel include più di 300 strumenti utili per Excel. Provalo gratuitamente senza limitazioni per 30 giorni. Ottienilo Ora.

Una volta installato Kutools per Excel, puoi procedere come segue:

1. Clicca su Kutools Plus > Dividi Dati, vedi screenshot:

2. Nella finestra di dialogo che appare:

• Clicca il primo pulsante per selezionare il titolo dell'intervallo, e poi clicca il secondo pulsante per selezionare la colonna che vuoi dividere.
• Quindi specifica il numero di righe che vuoi inserire per pagina da Righe per pagina stampata, e inserisci il numero di colonne che desideri in una pagina sotto Colonne per Pagina. Vedi screenshot:

3. Poi clicca OK, i dati dell'elenco lungo sono stati divisi in cinque colonne in una pagina. Vedi screenshot: