엑셀 시트 이름 전체 가져오기
엑셀에서 각 시트들의 이름 리스트가 필요할 때가 있다.
첫번째 시트탭 옆의 저 삼각형을 마우스 오른쪽 버튼으로 클릭하면 탭 목록을 확인 할 수 있다.
하지만 해당 내용을 복사 할 수 없고, 저 활성화 팝업을 띄워 놓고는 다른 엑셀 작업을 할 수 없다.
시트가 몇개 안되면 그냥 옮겨 적으면 될 일이지만, 10개 20개가 넘어가면 귀찮은 노가다가 된다.
엑셀의 VBA(Visual Basic for Aplication)을 활용해서 매크로를 만들면 노가다를 피할 수 있다.
VBA창은 엑셀에서 ALT + F11 로 들어갈 수 있다.
위의 창에서 삽입 - 모듈을 클릭하면 매크로 코드를 입력 할 수 있는 창이 뜬다.
이 창에 아래의 코드를 입력하고 다시 ALT + F11 을 눌러 VBA를 나간다.
Sub CallshtNm()
Dim sht As Worksheet
Dim i As Integer
For Each sht In Worksheets
ActiveCell.Offset(i, 0) = sht.Name
i = i + 1
Next sht
End Sub
이후 목록 리스트를 불러올 탭에서 ALT + F8을 눌러 매크로 창을 띄우고,
방금 만든 매크로를 실행하면
아름다운 시트 이름 목록을 확인할 수 있다.