VBA – 통합 문서의 모든 시트 이름을 목록으로 만드는 매크로

다음 매크로는 통합 문서의 모든 시트를 반복하여 각 시트의 탭 이름을 추출합니다. 많은 시트가 있는 통합 문서의 모든 시트를 빠르게 나열할 때 유용합니다.

통합 문서의 모든 워크시트 이름을 목록으로 만들기

매크로를 사용하려면 코드에서 Sheet1(아래 코드에서 두 번 사용됨)이라는 단어를 결과를 원하는 탭 이름으로 바꾸기만 하면 됩니다. 출력 탭에 시트 이름 목록을 만들기 전에 기존에 입력된 데이터를 지우므로 출력 탭에 중요한 정보가 있는지 확인하세요.

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1

Sheets("Sheet1").Range("A:A").Clear

For Each ws In Worksheets
     Sheets("Sheet1").Cells(x, 1) = ws.Name
     x = x + 1
Next ws

End Sub