엑셀 시트 이름 바꾸기 노가다 끝! 여러 시트 이름 일괄 변경 매크로

엑셀 파일 하나에 시트가 수십 개씩 쌓여 있을 때, 그 이름들을 하나하나 더블 클릭해서 바꾸고 계셨나요? 예를 들어 시트 이름을 날짜별로 바꾸거나 부서별로 정리해야 할 때, 시트가 20~30개만 넘어가도 손가락이 아플 정도로 번거로운 작업이 됩니다.

오늘은 엑셀 시트가 아무리 많아도 단 1초 만에 내가 원하는 규칙대로 이름을 싹 바꿔주는 자동화 매크로를 소개합니다.

1. 시트 이름 자동화가 필요한 이유

시트 이름을 정리하는 건 문서 관리의 기본입니다. 하지만 사람이 직접 하다 보면 오타가 날 수도 있고, 무엇보다 단순 반복 작업에 너무 많은 시간을 뺏기게 되죠. 매크로를 이용하면 일정한 규칙(예: 시트 이름 뒤에 오늘 날짜 붙이기 등)에 따라 정확하고 빠르게 이름을 정렬할 수 있습니다.

2. 시트 이름 일괄 변경 VBA 코드

아래 코드는 실행하면 "어떤 이름으로 바꿀까요?"라고 물어보고, 모든 시트 이름 뒤에 숫자를 붙여서 순서대로 정리해 줍니다.

Alt + F11을 눌러 편집기를 여신 뒤, 삽입 메뉴에서 모듈을 추가하고 아래 내용을 복사해서 넣어보세요.

Sub RenameAllSheets()
    Dim ws As Worksheet
    Dim NewName As String
    Dim i As Integer
    
    ' 변경하고 싶은 기본 이름을 입력받습니다.
    NewName = InputBox("시트의 기본 이름을 입력하세요. (뒤에 숫자가 붙습니다)", "시트 이름 일괄 변경")
    
    ' 입력값이 없으면 종료합니다.
    If NewName = "" Then Exit Sub
    
    i = 1
    Application.ScreenUpdating = False
    
    ' 모든 시트를 순차적으로 돌며 이름을 변경합니다.
    For Each ws In ThisWorkbook.Worksheets
        ' 예: 입력한 이름이 '매출'이면 '매출_1', '매출_2' 순으로 바뀝니다.
        ws.Name = NewName & "_" & i
        i = i + 1
    Next ws
    
    Application.ScreenUpdating = True
    MsgBox "모든 시트 이름이 변경되었습니다.", vbInformation, "작업 완료"
End Sub

3. 실무 활용 꿀팁

위 코드는 가장 기본적인 '이름+숫자' 방식입니다. 만약 특정 시트에 있는 셀 내용을 가져와서 시트 이름으로 쓰고 싶다면 매크로를 조금만 수정하면 됩니다.

예를 들어, 각 시트의 A1 셀에 업체명이 적혀 있다면 그 업체명을 시트 이름으로 바로 쓸 수도 있죠. 이런 자동화 기능을 한두 가지만 익혀둬도 월말 결산이나 대량의 데이터 정리 시간이 드라마틱하게 줄어듭니다.

4. 마치며

작은 차이가 업무의 질을 결정합니다. 시트 이름 하나도 깔끔하게 정리된 문서는 보는 사람에게 신뢰를 주죠. 오늘 공유해 드린 팁으로 여러분의 엑셀 파일을 더 보기 좋고 관리하기 쉽게 만들어 보시기 바랍니다. 평안한 주말 보내세요!