어느 가을날의 전환점

EXCEL|엑셀 시트(Sheet) 목록 추출 방법 본문

Software

EXCEL|엑셀 시트(Sheet) 목록 추출 방법

어느가을빛 2011. 6. 24. 13:29
해당 링크 바로가기

이걸 그대로 적용하면 좀 안되더군요.
VBA 기초를 이해한다면 제대로 적용할 수 있습니다.

- 일단 빈 시트를 하나 만들어 이름을 '목록'이라고 합니다.
- 매크로를 하나 만듭니다. 예컨대 '목록추출'이라고 하겠습니다.
- VBA 에디터를 실행합니다.
- 아래와 같이 코드를 입력해봅니다.


Sub 목록추출()
Dim SheetNames()
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
Sheets("목록").Select
Range("A1").Select
For i = 1 To SheetCount
   SheetNames(i) = ActiveWorkbook.Sheets(i).Name
   ActiveCell = ActiveWorkbook.Sheets(i).Name
   ActiveCell.Offset(1, 0).Select
Next i
End Sub

0 Comments
댓글쓰기 폼