Excel에서 숨겨진 시트를 복사하는 방법은 무엇입니까? 

Excel에서는 현재 워크북이나 다른 워크북으로 시트를 빠르고 쉽게 이동 및 복사할 수 있지만, 숨겨진 시트를 활성 워크북에 복사해 본 적이 있나요? 이 문서에서는 특정 숨겨진 시트를 활성 Excel 파일로 복사하기 위한 VBA 코드를 소개하겠습니다.

VBA 코드를 사용하여 숨겨진 워크시트를 활성 워크북으로 복사

VBA 코드를 사용하여 숨겨진 워크시트를 활성 워크북으로 복사

워크북에서 숨겨진 시트를 복사하고 이름을 지정하려면 다음 VBA 코드가 도움이 될 수 있습니다:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 숨겨진 워크시트를 활성 워크북으로 복사:

Sub DupSheet()
'Updateby Extendoffice 20161109
    Dim Actsheet As String
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveWorkbook.Sheets("Sheet12").Visible = True
    ActiveWorkbook.Sheets("Sheet12").Copy _
    after:=ActiveWorkbook.Sheets("Sheet12")
    ActNm = ActiveSheet.Name
    ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
    Sheets(ActiveSheet.Name).Visible = True
    ActiveWorkbook.Sheets("Sheet12").Visible = False
    Application.ScreenUpdating = True
End Sub

참고: 위의 코드에서 'Sheet 12'는 복사하려는 숨겨진 시트입니다. 필요에 따라 변경하십시오.

3. 그런 다음 이 코드를 실행하기 위해 F5 키를 누르면 숨겨진 워크시트의 새 복사본에 이름을 지정하라는 메시지 상자가 나타납니다. 스크린샷을 참조하세요:

4. 확인 버튼을 클릭하면 숨겨진 시트가 새 이름으로 활성 워크북에 즉시 복사됩니다.