Excel에서는 워크 시트의 머리글과 바닥 글을 지정할 수 있습니다. 이러한 머리글과 바닥 글을 한 워크 시트에서 다른 워크 시트로 복사 할 수 있습니다. 통합 문서 내에서이 작업을 수행하는 것은 비교적 쉽지만 한 통합 문서에서 다른 통합 문서로이 작업을 수행하는 것은 더 어려울 수 있습니다.

머리글과 바닥 글이 새 통합 문서에서 꽤 많이 사용하는 것이고 주요 관심사가 기존 통합 문서가 아닌 새 통합 문서에서 머리글과 바닥 글을 사용할 수 있도록하는 것이라면 가장 좋은 방법은 템플릿 통합 문서를 만드는 것입니다. . 머리글 및 바닥 글 사양을 포함하여 원하는대로 통합 문서를 설정하기 만하면됩니다. 그런 다음 통합 문서를 Excel 템플릿 (XLT 형식)으로 저장합니다. 그런 다음이 템플릿을 기반으로 통합 문서를 만들 수 있으며 원하는 머리글과 바닥 글을 갖게됩니다.

한 통합 문서의 워크 시트에서 다른 통합 문서의 워크 시트로 머리글과 바닥 글을 복사하는 한 가지 방법은 복사 및 붙여 넣기의 기존 편집 방법을 사용하는 것입니다. 즉, 복사 할 헤더 자료를 선택하고 Ctrl + C를 누르고 대상 워크 시트에 헤더를 표시 한 다음 Ctrl + V를 누를 수 있습니다. 이 접근 방식의 단점은 상당히 많은 단계를 포함 할 수 있다는 것입니다. 결국 각 머리글에는 세 개의 섹션 (왼쪽, 가운데 및 오른쪽)이 있고 각 바닥 글에는 세 개의 섹션이 있습니다. 즉, 전체 머리글과 바닥 글을 복사하려면 6 개의 복사 및 붙여 넣기 작업을 수행해야합니다.

한 통합 문서에서 다른 통합 문서로 머리글과 바닥 글을 복사하는 또 다른 방법은 기본 Excel 명령을 사용하여 워크 시트를 복사하는 것입니다.

다음 단계를 따르십시오.

  1. 대상 통합 문서를 엽니 다. 머리글과 바닥 글을 복사 할 대상입니다.

  2. 머리글 및 바닥 글의 원본 인 통합 문서를 열고 원하는 워크 시트가 표시되는지 확인합니다.

  3. 편집 메뉴에서 시트 이동 또는 복사를 선택합니다. Excel은 이동 또는 복사 대화 상자를 표시합니다. (그림 1 참조)

  4. To Book 드롭 다운 목록을 사용하여 1 단계에서 연 대상 통합 문서를 선택합니다.

  5. 시트 앞 영역을 사용하여 시트를 복사 할 위치를 지정합니다.

  6. 복사본 만들기 확인란이 선택되어 있는지 확인하십시오.

  7. 확인을 클릭하십시오. 워크 시트가 대상 통합 문서에 복사됩니다.

  8. 2 단계에서 원본 통합 문서를 닫습니다.

  9. 대상 통합 문서에서 방금 복사 한 워크 시트를 표시합니다.

  10. 창 하단의 탭 영역에서 마우스 오른쪽 버튼을 클릭하고 모든 시트 선택을 선택합니다. 이제 모든 워크 시트가 선택되었습니다.

  11. 페이지 설정 대화 상자를 표시합니다. (파일 메뉴에서 페이지 설정을 선택합니다.)

  12. 머리글 / 바닥 글 탭이 선택되어 있는지 확인하십시오. (그림 2 참조)

  13. 머리글 및 바닥 글 드롭 다운 목록을 사용하여 방금 복사 한 워크 시트에 사용 된 머리글과 바닥 글을 선택합니다.

  14. 확인을 클릭하십시오.

  15. 1-7 단계에서 복사 한 워크 시트를 삭제합니다.

기본적으로 원하는 머리글과 바닥 글이 포함 된 워크 시트를 복사 한 다음 해당 머리글과 바닥 글을 통합 문서의 다른 워크 시트에 복사 한 다음 원본 워크 시트를 삭제했습니다.

이러한 단계는 잘 작동하지만 머리글과 바닥 글을 여러 통합 문서에 복사해야하는 경우 지루할 수 있습니다. 이 경우 매크로를 사용하여 복사하는 것이 더 안전한 방법입니다. 다음 두 매크로를 사용하여 간단한 한 단계로 머리글과 바닥 글을 복사 할 수 있습니다. 소스 워크 시트를 표시하고 GetHeaders 매크로를 사용하기 만하면됩니다. 이 매크로는 머리글 및 바닥 글 정보를 문자열 변수에 복사합니다. 그런 다음 동일한 머리글과 바닥 글을 원하는 각 워크 시트를 차례로 표시하고 DoHeaders 매크로를 실행할 수 있습니다.

Option Explicit

Dim strHeadLeft As String Dim strHeadCenter As String Dim strHeadRight As String Dim strFootLeft As String Dim strFootCenter As String Dim strFootRight As String Dim bGotHeaders As Boolean

Sub GetHeaders()

With ActiveSheet.PageSetup         strHeadLeft = .LeftHeader         strHeadCenter = .CenterHeader         strHeadRight = .RightHeader         strFootLeft = .LeftFooter         strFootCenter = .CenterFooter         strFootRight = .RightFooter         bGotHeaders = True     End With End Sub
Sub DoHeaders()

If bGotHeaders Then         With ActiveSheet.PageSetup             .LeftHeader = strHeadLeft             .CenterHeader = strHeadCenter             .RightHeader = strHeadRight             .LeftFooter = strFootLeft             .CenterFooter = strFootCenter             .RightFooter = strFootRight         End With     Else         MsgBox "Select the sheet with the " _             & "headers you want to copy," _             & vbCrLf & "then run 'GetHeaders'", _             vbExclamation, "No Headers In Memory"

End If End Sub

원하는 경우 도구 모음 단추에 매크로를 할당하여 머리글과 바닥 글을 더 쉽게 복사 할 수 있습니다.

머리글과 바닥 글을 복사 할 워크 시트와 통합 문서가 상당히 많은 경우 사용할 수있는 다른 매크로 접근 방식이 있습니다. 다음 매크로는 활성 워크 시트의 머리글과 바닥 글을 열려있는 다른 모든 통합 문서의 다른 모든 워크 시트로 복사합니다.

Sub CopyHeaderFooter()

Dim PS As PageSetup     Dim WB As Workbook     Dim WS As Worksheet

Set PS = ActiveSheet.PageSetup     For Each WB In Workbooks         For Each WS In WB.Worksheets             With WS.PageSetup                 .LeftHeader = PS.LeftHeader                 .CenterHeader = PS.CenterHeader                 .RightHeader = PS.RightHeader                 .LeftFooter = PS.LeftFooter                 .CenterFooter = PS.CenterFooter                 .RightFooter = PS.RightFooter             End With         Next     Next End Sub

즉, 현재 워크 시트의 머리글과 바닥 글을 15 개의 서로 다른 통합 문서에 분산 된 150 개의 다른 워크 시트로 복사하려는 경우 15 개의 통합 문서를 동시에 열고 원본 워크 시트를 표시하고 매크로를 실행하기 만하면됩니다. .

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2696)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Copying_Headers_and_Footers [Copying Headers and Footers].