각 워크시트를 Excel에서 별도의 새 워크북으로 내보내고 저장하는 방법은?

개별 워크시트를 별도의 워크북으로 내보내고 저장하는 것은 데이터를 공유하거나 정리할 때 흔히 수행하는 작업입니다. 워크시트를 새 워크북에 수동으로 복사하고 붙여넣는 것도 가능하지만, 여러 시트가 있는 워크북의 경우 번거롭고 시간이 많이 걸릴 수 있습니다. 이 가이드에서는 단계별로 여러 방법을 탐색하여 필요와 전문성에 따라 최적의 솔루션을 선택할 수 있도록 도와드립니다.

이동 또는 복사 명령으로 워크시트를 하나씩 새 워크북으로 저장하기

"이동 또는 복사" 명령을 사용하면 하나 이상의 워크시트를 새 워크북으로 빠르게 내보내거나 복사할 수 있습니다.

단계1: 탭 바에서 워크시트 이름을 선택합니다. 여러 워크시트를 선택하려면 "Ctrl" 키를 누른 상태에서 시트 탭을 하나씩 클릭하세요.

단계2: 워크시트 이름을 마우스 오른쪽 버튼으로 클릭하고, 컨텍스트 메뉴에서 "이동 또는 복사"를 클릭합니다.

단계3: "이동 또는 복사" 대화 상자에서 "선택한 시트를 책으로 이동" 드롭다운 목록에서 "(새 책)" 항목을 선택합니다.

단계4: 그런 다음 "확인"을 클릭하면 내보내거나 복사된 워크시트가 있는 "새 워크북"으로 전환됩니다. "파일" > "저장"을 클릭하여 새 워크북을 저장하세요.

참고: "이동 또는 복사" 대화 상자에는 "복사본 만들기" 옵션이 있습니다. 체크하지 않으면 선택한 워크시트가 원본 워크북에서 이동됩니다; 체크하면 선택한 워크시트가 복사됩니다.

Kutools for Excel로 쉽게 워크시트를 일괄적으로 새 워크북으로 저장하기

여러 워크시트를 별도의 워크북으로 저장해야 하는 경우 첫 번째 방법은 좋은 선택이 아닙니다. 아래의 VBA 코드는 Excel 초보자에게는 약간 복잡할 수 있습니다. 여기서는 "Kutools for Excel"의 "워크북 분리" 유틸리티를 사용하여 하나의 워크북의 각 워크시트를 쉽게 별도의 새 워크북으로 일괄 저장할 수 있습니다.

Kutools for Excel을 설치한 후, "Kutools Plus" > "워크북" > "워크북 분리"를 클릭하여 "워크북 분리" 대화 상자를 엽니다. 그런 다음 다음과 같이 구성합니다.

1. 새 워크북으로 저장할 워크시트를 선택합니다. 기본적으로 모든 워크시트가 선택되어 있습니다.
2. "옵션" 섹션에서 해당 체크박스를 선택하여 숨겨진 시트와 빈 워크시트를 건너뛸 수 있습니다.
3. "확인"을 클릭합니다.

   

4. "폴더 선택" 대화 상자가 나타나면 새 워크북을 저장할 대상 폴더를 선택하고 "폴더 선택" 버튼을 클릭해야 합니다.

그러면 지정된 워크시트 또는 모든 워크시트가 즉시 별도의 새 워크북으로 저장됩니다.

VBA 코드를 사용하여 워크시트를 새 워크북으로 내보내고 저장하기

다음 코드는 모든 표시된 워크시트를 새 워크북으로 내보내고, 활성 워크북과 동일한 경로에 새로 생성된 폴더에 원본 시트 이름으로 워크북을 저장합니다. 다음 단계를 수행하세요:

단계1: "ALT" + "F11" 키를 누르고 "Microsoft Visual Basic for Applications" 창을 엽니다.

단계2: "삽입" > "모듈"을 클릭하고 모듈 창에 다음 매크로를 붙여넣습니다.

VBA: 새 폴더에 워크시트를 새 워크북으로 내보내고 저장합니다.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

단계3: 이 코드를 실행하려면 "F5" 키를 누릅니다. 그러면 새로 내보낸 워크북의 위치를 알려주는 메시지 상자가 나타나며, 원본 워크북의 모든 워크시트가 새로 지정된 폴더에 원본 시트 이름으로 새로 분리된 워크북으로 내보내집니다.

데모: 각 시트를 새 워크북으로 내보내고 저장하기

관련 기사:

• 여러 워크북을 단일 워크북으로 병합하기
• 범위를 개별 파일로 저장하기
• 워크북을 별도의 Excel 파일로 분할하기