엑셀 시트별로 각각 따로 저장하기

엑셀 매크로

1. 엑셀 특정 셀A2의 명칭이 시트이름으로 바뀌는 매크로

셀A2의 값이 시트이름으로 변경

Sub 시트이름바꾸기()

​

Dim rs As Worksheet

​

For Each rs In Sheets

rs.Name = rs.Range("A2")

Next rs

​

End Sub

​

2. 시트의 이름으로 해당 시트가 저장되는용도(xls로 저장됨)

Sub 저장매크로()

Dim i As Long

​

For i = 1 To Sheets.Count

ActiveWorkbook.Sheets(i).Select

ActiveSheet.Copy

​

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls", FileFormat:=xlWorkbookNormal

ActiveWorkbook.Close

​

Next

End Sub

​

업무에 참조하세요!