[매크로] 대량으로 엑셀 시트 만들기 [시트 생성, 삭제]

엑셀 꿀팁 매크로

 

오늘은 일상적인 업무에서 발생하는 불편함을 해소할 수 있는 업체 및 팀별 시트를 손쉽게 생성하는 방법에 대해 간략하게 소개하려고 한다. 이럴 경우 매크로를 활용하여 업무 효율성을 향상시킬 수 있다.

 

1. 상황 설정

 

가령 여러 팀이나 업체에 대한 시트를 만들어야 하는 경우, 일일이 시트를 생성하는 작업은 번거로울 수 있다. 특히 만들어야 할 시트가 열개가 넘어가면.....이때 사용할 수 있는 간편한 해결책이 있다.

 

2. 취합 시트 및 양식 시트 작성

 

먼저, 엑셀의 취합 시트를 열어 B열에는 생성하고자 하는 시트의 제목을 입력한다. 그리고 양식 시트를 준비하여 원하는 양식을 작성한다.

시트 대량 생성

 

별첨 파일을 열고 양식 변경 및 시트 제목 입력 후 시트 생성하기를 한다.

 

3. 매크로 설정 (위 내용은 아래 매크로로 작성 되었다.)

 

매크로를 사용하기 위해서는 엑셀 내에서 VBA(Visual Basic for Applications)를 활성화해야 한다. VBA를 열고 새로운 모듈을 추가한 후, 다음과 같은 간단한 매크로 코드를 입력한다.

Sub TOTAL()

answer = MsgBox("시트를 모두 삭제하시겠습니까?", vbYesNo)

If answer = vbYes Then

    'B3셀부터 B3셀 아래로 끝까지의 범위를 aa 변수로 저장하시오
    Set aa = Range(Range("b3"), Range("b3").End(xlDown))

    '각각의 aa범위 안에 있는 셀 에 대해서
    For Each cell In aa
    
        If cell.Value <> "" Then
        
            Worksheets("양식").Copy after:=Worksheets(Worksheets.Count)
            
            ActiveSheet.Name = cell.Value
            
        End If
        
        Worksheets("취합").Activate
    
    Next

End If

End Sub

Sub CLEAN()

answer = MsgBox("시트를 모두 삭제하시겠습니까?", vbYesNo)

Application.DisplayAlerts = False

If answer = vbYes Then

    For Each sht In Worksheets
    
        If sht.Name <> "취합" And sht.Name <> "양식" And sht.Name <> "1" Then
        
        sht.Delete
        
        End If
    
    Next
    
End If

End Sub

 

동일 양식 여러 시트로 만들기 - 복사본.xlsm

0.03MB