어느 가을날의 전환점
EXCEL|엑셀 시트(Sheet) 목록 추출 방법 본문
해당 링크 바로가기
이걸 그대로 적용하면 좀 안되더군요.
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
이걸 그대로 적용하면 좀 안되더군요.
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
'Software' 카테고리의 다른 글
| EXCEL|SUBSTITUTE 함수로 문자열 치환하기(REPLACE) (0) | 2011.11.02 |
|---|---|
| 인코딩|UmileEncoder - 프리셋(SKY_K3G) (0) | 2011.06.30 |
| OZ|오즈 리포팅 툴 참조 링크 (0) | 2011.06.08 |
| CHROME|크롬 팁 - 양식 자동 완성 관리 / 삭제(제거) (0) | 2011.05.02 |
| ERwin|Window 7, Vista 등에서 도움말 실행 시 Not enough memory 오류 해결 방법 (0) | 2010.10.22 |
Comments