จะทำซ้ำแถวที่ด้านบนของทุกงานพิมพ์ยกเว้นหน้าสุดท้ายใน Excel ได้อย่างไร

ในหลาย ๆ กรณีคุณอาจต้องทำซ้ำแถวส่วนหัวที่ด้านบนของทุกหน้าที่พิมพ์ใน Excel แต่จะทำซ้ำแถวด้านบนของทุกงานพิมพ์ยกเว้นหน้าสุดท้ายได้อย่างไร? บทความนี้จะแสดงวิธีการเพื่อให้บรรลุ

ทำซ้ำแถวที่ด้านบนของทุกงานพิมพ์ยกเว้นหน้าสุดท้ายด้วยรหัส VBA

ทำซ้ำแถวที่ด้านบนของทุกงานพิมพ์ยกเว้นหน้าสุดท้ายด้วยรหัส VBA

คุณสามารถเรียกใช้โค้ด VBA ด้านล่างเพื่อพิมพ์ทุกหน้าโดยมีแถวซ้ำอยู่ด้านบนยกเว้นหน้าสุดท้าย กรุณาดำเนินการดังนี้

1. เปิดแผ่นงานที่คุณต้องทำซ้ำแถวด้านบนยกเว้นหน้าสุดท้ายจากนั้นกด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

VBA: ทำซ้ำแถวที่ด้านบนของทุกงานพิมพ์ยกเว้นหน้าสุดท้ายใน Excel

Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
    If xPages > 0 Then
        With ActiveSheet.PageSetup
            .PrintTitleRows = xRg.AddressLocal
            ActiveSheet.PrintOut from:=1, To:=xPages - 1
            .PrintTitleRows = ""
             ActiveSheet.PrintOut from:=xPages, To:=xPages
        End With
    End If
End Sub

3 กด F5 เพื่อเรียกใช้รหัสจากนั้นกดปุ่ม Kutool สำหรับ Excel กล่องโต้ตอบปรากฏขึ้นโปรดเลือกช่วงแถวที่คุณต้องการทำซ้ำที่ด้านบนของทุกงานพิมพ์ยกเว้นหน้าสุดท้ายจากนั้นคลิกปุ่ม OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นทุกหน้าในแผ่นงานนี้จะพิมพ์ออกมาโดยมีบางแถวซ้ำอยู่ด้านบนยกเว้นหน้าสุดท้าย

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

บทความที่เกี่ยวข้อง:

• วิธีการทำซ้ำค่าเซลล์จนกว่าจะเห็นหรือถึงค่าใหม่ใน Excel
• วิธีการทำซ้ำอักขระ n ครั้งในเซลล์ใน Excel