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 키를 눌러 코드를 실행 한 다음 Excel 용 Kutool 대화 상자가 나타나면 마지막 페이지를 제외한 모든 인쇄물 상단에서 반복해야 할 행 범위를 선택한 다음 OK 단추. 스크린 샷보기 :

그런 다음이 워크 시트의 모든 페이지가 마지막 페이지를 제외한 특정 행이 맨 위에 반복되는 상태로 인쇄됩니다.

관련 기사:

• Excel에서 새 값을 보거나 도달 할 때까지 셀 값을 반복하는 방법은 무엇입니까?
• Excel의 셀에서 문자를 n 번 반복하는 방법은 무엇입니까?