Comment imprimer une longue colonne sur une page dans Excel?

Supposons que vous ayez une longue liste de données dans une colonne, peut-être 200 lignes, et que vous deviez maintenant les imprimer, mais lorsque vous imprimez, il utilise environ 5 pages de papier, avec une seule colonne sur le côté gauche et beaucoup d'espace blanc sur Le côté droit. En bref, vous pouvez créer des colonnes, mais Excel n'a pas cette fonction. Comment imprimer les données de la longue liste sur une page pour économiser le papier?

Imprimer une longue colonne sur une page avec une formule

Imprimer une longue colonne sur une page avec le code VBA

Imprimer une longue colonne sur une page avec Kutools for Excel

Imprimer une longue colonne sur une page avec une formule

Ici, je peux vous présenter une longue formule pour résoudre ce problème, procédez comme suit:

1. Dans une nouvelle feuille de calcul de votre classeur actif, entrez la formule =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) dans la cellule A1.

2. Sélectionnez ensuite la cellule A1 et faites glisser la poignée de remplissage vers le bas jusqu'à la ligne 45, puis continuez à faire glisser la poignée de remplissage vers la droite jusqu'à ce que les données soient affichées. Et la longue colonne a été divisée en plusieurs colonnes pour tenir sur une page dans une nouvelle feuille de calcul. Voir la capture d'écran:

Imprimer une longue colonne sur une page avec le code VBA

Le code VBA suivant peut également vous aider à diviser une longue liste de données en plusieurs colonnes, afin que vous puissiez imprimer les données et économiser du papier.

1. Maintenez le ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

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. Puis appuyez sur F5 clé pour exécuter ce code, et sélectionnez les données de la liste que vous souhaitez diviser dans la boîte de dialogue qui s'affiche, voir capture d'écran:

4Cliquez sur OKet entrez le nombre de colonnes que vous souhaitez diviser. Voir la capture d'écran:

5. Et cliquez sur OK, la longue colonne a été divisée en cinq colonnes dans une nouvelle feuille de calcul. Voir les captures d'écran:

Imprimer une longue colonne sur une page avec Kutools for Excel

La formule longue et le code VBA peuvent être difficiles pour vous, je peux ici vous présenter une méthode simple et pratique pour résoudre ce problème. Kutools for Excel's Fractionner en colonnes La fonction peut vous aider à diviser rapidement la longue colonne en plusieurs colonnes afin que vous puissiez les imprimer de manière raisonnable.

Kutools for Excel comprend plus de 300 outils Excel pratiques. Essai gratuit sans limitation de 30 jours. Obtenez-le maintenant.

Lorsque vous avez installé Kutools pour Excel, vous pouvez procéder comme suit :

1Cliquez sur Kutools Plus > Fractionner en colonnes, voir capture d'écran:

2. Dans la boîte de dialogue qui apparaît :

• Cliquez sur le premier  pour sélectionner le titre de la plage, puis cliquez sur le deuxième  pour sélectionner la colonne à diviser.
• Spécifiez ensuite le nombre de lignes que vous souhaitez insérer par page à partir de Lignes par page imprimée, et entrez le nombre de colonnes que vous voulez dans une page sous Nombre de segments. Voir la capture d'écran:

3. Puis clique OK, les données de la longue liste ont été divisées en cinq colonnes dans une page. Voir les captures d'écran: