كيفية طباعة عمود طويل على صفحة واحدة في Excel؟

لنفترض أن لديك قائمة طويلة من البيانات في عمود، ربما 200 صف، والآن تحتاج إلى طباعتها، ولكن عند الطباعة، يتم استخدام حوالي 5 صفحات ورقية، مع وجود عمود واحد فقط في الجانب الأيسر ومساحة بيضاء كبيرة على الجانب الأيمن. في برنامج Word، يمكنك تقسيم النص إلى أعمدة، لكن Excel لا يحتوي على هذه الوظيفة. كيف يمكنك طباعة القائمة الطويلة من البيانات على صفحة واحدة لتوفير الورق؟

طباعة عمود طويل على صفحة واحدة باستخدام الصيغة

طباعة عمود طويل على صفحة واحدة باستخدام كود VBA

طباعة عمود طويل على صفحة واحدة باستخدام Kutools لـ Excel

طباعة عمود طويل على صفحة واحدة باستخدام الصيغة

هنا يمكنني أن أقدم لك صيغة طويلة لحل هذه المشكلة، يرجى القيام بما يلي:

1. في ورقة عمل جديدة من المصنف الحالي، أدخل الصيغة =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) في الخلية A1.

2. ثم حدد الخلية A1، واسحب مقبض التعبئة لأسفل حتى الصف 45، ثم استمر في سحب مقبض التعبئة عبر اليمين حتى يتم عرض البيانات. وسيتم تقسيم العمود الطويل إلى عدة أعمدة لتتناسب مع صفحة واحدة في ورقة عمل جديدة. انظر لقطة الشاشة:

طباعة عمود طويل على صفحة واحدة باستخدام كود VBA

الكود التالي لـ VBA أيضًا يمكن أن يساعدك في تقسيم قائمة طويلة من البيانات إلى عدة أعمدة، بحيث يمكنك طباعة البيانات وتوفير الورق.

1. اضغط مع الاستمرار على مفتاحي ALT + F11، ويفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

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. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، وحدد بيانات القائمة التي تريد تقسيمها في مربع الحوار المنبثق، انظر لقطة الشاشة:

4. انقر فوق موافق، وأدخل عدد الأعمدة التي تريد تقسيمها إليها. انظر لقطة الشاشة:

5. وانقر فوق موافق، تم تقسيم العمود الطويل إلى خمسة أعمدة في ورقة عمل جديدة. انظر لقطات الشاشة:

طباعة عمود طويل على صفحة واحدة باستخدام Kutools لـ Excel

قد تكون كل من الصيغة الطويلة وكود VBA صعبين بالنسبة لك، هنا يمكنني أن أقدم لك طريقة سهلة ومريحة لحل هذه المشكلة. وظيفة تقسيم البيانات إلى أعمدة في Kutools لـ Excel يمكن أن تساعدك بسرعة في تقسيم العمود الطويل إلى عدة أعمدة بحيث يمكنك طباعتها بشكل معقول.

Kutools لـ Excel يتضمن أكثر من 300 أداة مفيدة لبرنامج Excel. جربها مجانًا بدون قيود لمدة 30 يومًا. احصل عليها الآن.

عندما تقوم بتثبيت Kutools لـ Excel، يمكنك القيام بالخطوات التالية:

1. انقر فوق Kutools Plus > تقسيم إلى أعمدة، انظر لقطة الشاشة:

2. في مربع الحوار المنبثق:

• انقر فوق الزر الأول لتحديد عنوان النطاق، ثم انقر فوق الزر الثاني لتحديد العمود الذي تريد تقسيمه.
• ثم حدد عدد الصفوف التي تريد وضعها لكل صفحة من الصفوف في الصفحة المطبوعة، وأدخل عدد الأعمدة التي تريدها في صفحة واحدة ضمن عدد الأقسام. انظر لقطة الشاشة:

3. ثم انقر فوق موافق، تم تقسيم بيانات القائمة الطويلة إلى خمسة أعمدة في الصفحة. انظر لقطات الشاشة: