본문 바로가기

엑셀

엑셀 시트 이름 한꺼번에 바꾸기 매크로(VBA 일괄 변경)

728x90

엑셀 작업 중 많은 시트 이름을 한번에 바꿀 필요가 있을 때 사용하는 매크로입니다. 메인 시트를 제외하고는 이름을 전부 바꿔 줍니다. (매크로, 첨부파일 참조)

아래 매크로에 대한 설명을 참조하시면, 전체 시트의 이름을 바꿀 수도 있고, 시트 이름도, 자신이 원하는 형태로 바꿀 수 있습니다.

예제에서는 변경할 이름으로 몇 월 인지를 입력하면, 날짜를 더해주는 방법으로 바꿔줍니다. (시트의 숫자가 27개 혹은 30개 이내일 경우)

시트이름+한번에+변경.xlsm
0.03MB

For i = 1 To Application.Sheets.Count '첫번째 시트부터 선택
    Application.Sheets(i).Name = newName & i '입력받은 이름에다 i(1부터)값을 더해 새이름 지정
Next

아래는 개발도구 메뉴 보이기 & 매크로 실행 버튼 만들기 예제에 대한 설명입니다. '개발도구' 메뉴가 항상 필요하지 않은 경우, 단축키, 알트(Alt) + F11을 누르면 비주얼베이직(VBA) 창이 열리고, 알트(Alt) + Q 키를 누르면 엑셀 창이 닫히고 엑셀 화면으로 돌아옵니다.

 

비주얼베이직 알트(Alt) + F11
엑셀 워크시트 알트(Alt) + Q
매크로 실행 알트(Alt) + F8

 

 

 

 

728x90