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

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

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

اطبع عمودًا طويلًا على صفحة واحدة برمز VBA

اطبع عمودًا طويلًا على صفحة واحدة باستخدام Kutools for 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 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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. انقر OK، وأدخل عدد الأعمدة التي تريد تقسيمها. انظر لقطة الشاشة:

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

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

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

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

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

1. انقر كوتولس بلس > انقسام إلى أعمدة، انظر لقطة الشاشة:

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

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

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