จะตั้งค่าพื้นที่พิมพ์ให้เฉพาะคอลัมน์จนถึงแถวสุดท้ายใน Excel ได้อย่างไร?

ตามค่าเริ่มต้นใน Excel พื้นที่พิมพ์จะถูกตั้งค่าให้รวมเวิร์กชีตทั้งหมดจนถึงแถวสุดท้ายที่มีข้อมูล อย่างไรก็ตาม หากคุณต้องการพิมพ์เฉพาะคอลัมน์ A ถึง C จนถึงแถวสุดท้ายที่มีข้อมูล (และไม่รวมข้อมูลใดๆ ในคอลัมน์หลัง C) ตามที่แสดงในภาพหน้าจอด้านล่าง มีวิธีใดในการจัดการเรื่องนี้หรือไม่

ตั้งค่าพื้นที่พิมพ์เป็นแถวสุดท้ายด้วยข้อมูลโดย Print Selection

ตั้งค่าพื้นที่พิมพ์เป็นแถวสุดท้ายด้วยข้อมูลโดย VBA

แผ่นงานที่มีข้อมูลขยายไปถึงคอลัมน์ I	ตัวอย่างการพิมพ์แสดงข้อมูลถึงคอลัมน์ C เท่านั้น

ตั้งค่าพื้นที่พิมพ์เป็นแถวสุดท้ายด้วยข้อมูลโดย Print Selection

หากต้องการพิมพ์ส่วนที่เลือกไปยังแถวสุดท้ายพร้อมข้อมูลคุณสามารถเปลี่ยนพื้นที่พิมพ์เป็นการเลือกที่ระบุก่อนพิมพ์

1 ถือ Ctrl จากนั้นเลือกคอลัมน์ที่คุณต้องการพิมพ์ ดูภาพหน้าจอ:

2 คลิก เนื้อไม่มีมัน > พิมพ์แล้วเลือก การเลือกพิมพ์ จาก การตั้งค่า มาตรา. ดูภาพหน้าจอ:

ตั้งค่าพื้นที่พิมพ์เป็นแถวสุดท้ายที่มีข้อมูล

ที่นี่ฉันแนะนำรหัสมาโครเพื่อดำเนินการนี้ด้วย

1. เปิดใช้งานแผ่นงานที่คุณใช้กด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างแล้วคลิก สิ่งที่ใส่เข้าไป > โมดูล. ดูภาพหน้าจอ

2. วางโค้ดด้านล่างลงในไฟล์ โมดูล สคริปต์และกด F5 กุญแจสำคัญในการทำงาน

VBA: ตั้งค่าพื้นที่เป็นแถวสุดท้าย

'UpdatebyExtendoffice20170811
    Dim xRg As Range
    Dim xRgLRow As Long
    Dim xRgAddress As String
    On Error Resume Next
    xRgAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range：", "KuTools For Excel", xRgAddress, , , , , 8)
    xRg.Select
    xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
    xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
    xRgAddress = xRgAddress & xRgLRow
    ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub

3. กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงคอลัมน์ที่คุณต้องการใช้ ดูภาพหน้าจอ:

4 คลิก OKตั้งค่าพื้นที่พิมพ์แล้ว