[Excel] 엑셀 전체 시트명 가져오기

7.3.7 2022. 10. 22. 01:36

Sub 시트명가져오기_Click()



Dim sht As Worksheet

Dim i As Integer



'전체 시트를 하나를 읽는다.

For Each sht In Worksheets

'선택한 셀 기준으로 행을 증가하면서

ActiveCell.Offset(i, 0) = sht.Name



'다른방법 : 행/열 설정시 반드시 1이상의 값을 지정해야 한다.