วิธีพิมพ์คอลัมน์ยาวในหน้าเดียวใน Excel

สมมติว่าคุณมีรายการข้อมูลยาว ๆ ในคอลัมน์อาจจะ 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 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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 อาจเป็นเรื่องยากสำหรับคุณที่นี่ฉันสามารถแนะนำวิธีที่ง่ายและสะดวกในการแก้ปัญหานี้ Kutools สำหรับ Excel's แยกเป็นคอลัมน์ ฟังก์ชันสามารถช่วยคุณแบ่งคอลัมน์ยาวออกเป็นหลายคอลัมน์ได้อย่างรวดเร็วเพื่อให้คุณสามารถพิมพ์ได้อย่างสมเหตุสมผล

Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now.

เมื่อคุณติดตั้ง Kutools for Excel แล้วคุณสามารถทำตามขั้นตอนต่อไปนี้:

1. คลิก Kutools พลัส > แยกเป็นคอลัมน์ดูภาพหน้าจอ:

2- ในกล่องโต้ตอบที่โผล่ออกมา:

• คลิกตัวแรก  เพื่อเลือกชื่อของช่วงจากนั้นคลิกปุ่มที่สอง  เพื่อเลือกคอลัมน์ที่คุณต้องการแบ่ง
• จากนั้นระบุจำนวนแถวที่คุณต้องการใส่ต่อหน้า แถวต่อหน้าที่พิมพ์และป้อนจำนวนคอลัมน์ที่คุณต้องการในหน้าเดียว จำนวนกลุ่ม. ดูภาพหน้าจอ:

3. จากนั้นคลิก OKข้อมูลรายการยาวถูกแบ่งออกเป็นห้าคอลัมน์ในหนึ่งหน้า ดูภาพหน้าจอ: