한파일에 여러시트를 피일로 분리

시트를 파일로 분리

엑셀창에서 Alt-F11 누르시고 VBA 창이 나타나면 삽입-모듈 하시고 아래 코드를 붙여넣으세요.

코드 가운데 커서를 두시고 F5 를 누르시면 시트를 같은 폴더내 파일로 저장합니다.


Sub toFile()
Dim tR As Range
Dim tmp As String
For i = 1 To Sheets.Count
Sheets(i).Select
tmp = ActiveSheet.Name

Set tR = ActiveSheet.Cells
tR.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Cells.EntireColumn.AutoFit
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs tmp & ".xls"
Application.DisplayAlerts = True
ActiveWindow.Close
Next i
End Sub