Q) 엑셀 파일에서 시트가 100가지가 넘습니다.
한 시트에 100가지가 넘는 시트의 이름만 추출 할려고 합니다.
각 시트마다 더블클릭해서 이름 복사해서 붙여넣기는 너무 힘들더라구요
쉬운 방법이 없을까요?
A) 안녕하세요
답변이 없어 드려봅니다.
모듈창에 아래 매크로를 넣고 실행해 보세요.
(Alt + F11 --> VBA창에서 --> 삽입 --> 모듈)
* stName(나열할 시트)에 버튼하나 만든 후
아래 매크로명을 연결하고 클릭하면 매크로 실행됩니다.
도움이 되었기 바라며 날 마다 좋은 날 되헤요.
Sub 시트명나열()
Dim Ws As Worksheet
Dim ix As Integer, it As Integer
' stName은 시트명을 나열할시트의 시트명입니다.
' 님의 해당 시트명으로 수정하세요.
Set Ws = Sheets("stName")
With Ws
it = Worksheets.Count
.Columns("A:B").EntireColumn.ClearContents
.Range("a1:b1") = Array("No", "시트명")
For ix = 1 To it
.Cells(ix + 1, 1) = ix
.Cells(ix + 1, 2) = Sheets(ix).Name
Next ix
.Columns("A:B").EntireColumn.AutoFit
End With
End Sub
https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020101&docId=221244450&qb=7JeR7IWAIO2MjOydvOydmCDsi5ztirjsnbTrpoQ=&enc=utf8§ion=kin.ext&rank=28&search_sort=0&spq=0
엑셀 파일에서 여러개의 시트 중 이름만 추출하기
엑셀 파일에서시트가 100가지가 넘습니다.한 시트에 100가지가 넘는 시트의 이름만 추출 할려고 합니다.각 시트마다 더블클릭해서 이름 복사해서 붙여넣기는 너무 힘들더라구요쉬운 방법...
kin.naver.com
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| vba - 고유목록 추출(New Collection,Add) (0) | 2023.08.22 |
|---|---|
| vba - Array(배열)1 (0) | 2023.08.22 |
| VBA - 중복값 제거(New Collection) (0) | 2023.08.21 |
| 엑셀 - 시트이름을 셀에 불러오기 (0) | 2022.09.21 |
| 엑셀팁 - 다중조건에서 구간값 구하기 (0) | 2022.09.12 |
| 엑셀팁 - 특정 셀의 값(숫자)에 따라 다른 셀의 색상 자동변동 (0) | 2022.09.12 |
| 엑셀팁 - 특정 셀의 입력값에 따라 시트이름 자동 변환 (0) | 2022.09.12 |
| 엑셀팁 - 특정 셀의 클릭시 새로운 시트 생성 & 이름 자동 (0) | 2022.09.12 |
