Comment imprimer une longue colonne sur une seule page dans Excel ?

Supposons que vous ayez une longue liste de données dans une colonne, peut-être 200 lignes, et maintenant vous devez les imprimer, mais lorsque vous imprimez, cela utilise environ 5 pages de papier, avec seulement une colonne à gauche et beaucoup d'espace blanc à droite. Dans Word, vous pouvez diviser en colonnes, mais Excel ne dispose pas de cette fonction. Comment imprimer la longue liste de données sur une seule page pour économiser du papier ?

Imprimer une longue colonne sur une seule page avec une formule

Imprimer une longue colonne sur une seule page avec un code VBA

Imprimer une longue colonne sur une seule page avec Kutools pour Excel

Imprimer une longue colonne sur une seule page avec une formule

Voici une formule complexe que je peux vous présenter pour résoudre ce problème, veuillez suivre ces étapes :

1. Dans une nouvelle feuille de calcul de votre classeur actuel, entrez la formule =SI(DÉCALAGE(Feuil1!$A$1;(COLONNE()-1)*45+LIGNE()-1;0)="";"";DÉCALAGE(Feuil1!$A$1;(COLONNE()-1)*45+LIGNE()-1;0)) dans la cellule A1.

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

Imprimer une longue colonne sur une seule page avec un 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 les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis 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. Appuyez ensuite sur la touche F5 pour exécuter ce code, et sélectionnez la liste de données que vous souhaitez diviser dans la boîte de dialogue qui apparaît, voir capture d'écran :

4. Cliquez sur OK, puis entrez le nombre de colonnes dans lequel vous souhaitez diviser. Voir capture d'écran :

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

Imprimer une longue colonne sur une seule page avec Kutools pour Excel

La formule longue et le code VBA peuvent être difficiles pour vous, voici une méthode simple et pratique pour résoudre ce problème. La fonction Diviser les données de Kutools pour Excel peut vous aider à diviser rapidement la longue colonne en plusieurs colonnes afin que vous puissiez les imprimer de manière raisonnable.

Kutools pour Excel inclut plus de 300 outils pratiques pour Excel. Essayez gratuitement sans limitation pendant 30 jours. Obtenez-le maintenant.

Une fois que vous avez installé Kutools pour Excel, vous pouvez suivre les étapes suivantes :

1. Cliquez sur Kutools Plus > Diviser les données, voir capture d'écran :

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

• Cliquez sur le premier bouton pour sélectionner le titre de la plage, puis cliquez sur le deuxième bouton pour sélectionner la colonne que vous souhaitez diviser.
• Ensuite, spécifiez le nombre de lignes que vous souhaitez par page dans Lignes par page imprimée, et entrez le nombre de colonnes souhaité sous Nombre de segments. Voir capture d'écran :

3. Cliquez ensuite sur OK, la longue liste de données a été divisée en cinq colonnes sur une page. Voir captures d'écran :