시트 이름 한번에 바꾸는 법

VBA

작성자

해피

작성일

2022-02-22 20:46

조회

189

엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요

첨부된 파일의 [202201] 시트 B열(사업자상호)로 시트이름을 일괄적으로 바꾸고 싶은데 방법이 있을까요?

예를 들자면

sheet1 → A상사(과세)

sheet2 → A상사(면세)

sheet3 → B상사(과세)

sheet4 → B상사(면세)

sheet5 → C상사(과세)

sheet6 → C상사(면세)

이렇게 바꾸고 싶습니다.

해피

회원등급 : 잎새등급

포인트 : 114 EP

총질문 : 6 개 (마감율 : 67%)

채택답변 : 0 개

게시글

전체 4

Wland 님 14

2022-02-22 21:53

채택된 답변

시트를 먼저 생성해야 합니다. 현재 시트수와 부여하고자 하는 이름의 갯수가 차이 납니다. 총시트는 27개여야 하는데....11개네요..

시트생성코드..그 다음으로 할게 이름 일괄 변경입니다..

첫번째 시트이름 기준으로 변경되니 참고 바랍니다.

Sub cngsname()
sc = Sheets.Count
For scn = sc To 27
If sc <> 27 Then Sheets.Add , Sheets(sc)
Next

For i = 4 To Cells(Rows.Count, "b").End(3).Row
Sheets(i - 2).Name = Cells(i, 2)
Next

End Sub

'/////////
나는나 님 32

2022-02-22 23:35
위에 분이 답변 주신 내용에 약간 추가하면,

For scn = sc To 27 와 같은 하드코딩 대신
```
For scn = sc To Sheets("202201").Range("A3").CurrentRegion.Rows.Count
```
이렇게 수정하면 사업자 상호가 추가되거나 줄어들더라도 그 변경된 범위를 반영할 수 있게 됩니다. If sc <> 27 Then Sheets.Add , Sheets(sc) 여기에서도 마찬가지로 하드코딩 보다는 동적범위로 코딩하는 게 좋습니다.

그리고 Sheets.Add 명령을 실행하면 추가된 쉬트가 Activate되기 때문에 참조할 영역의 Parents 즉 쉬트 이름을 아래처럼 지정해줘야 에러가 발생하지 않습니다.
```
With Sheets("202201")
    For i = 4 To .Cells(Rows.Count, "b").End(3).Row
        Sheets(i - 2).Name = .Cells(i, 2)
    Next
End With
```
문제 해결에 도움이 되었으면 좋겠습니다.
- 해이 님 작성자
  
  2022-03-19 10:56
  
  @나는나 님
  
  안녕하세요 답변 남겨주신게 많은 도움이 되어 비슷하게 여쭙고 싶은게 있어서 질문을 드리게 되었습니다.
  
  다름이 아니라 제가 작성하는 파일이있는데 잘 안되서 여쭙게 되었습니다
  
  첨부된 파일에는 “과세“ 시트, “면세” 시트가 있습니다.
  
  이 두시트를 이용하여 (주)호서(과세), (주)호서(면세), 주경점(과세), 주경점(면세)처럼
  
  거래처별 (과세) (면세) 시트를 자동으로 생성되게 하고 싶어서 질문을 드리게 되었습니다.
  
  거래처별 (과세) (면세) 양식은 바꾸거나 하면 안되고 첨부된 파일에 적용된 그대로 해야하는데 하다가 잘 안되서 여쭤봅니다.
  
  실제 거래처수는 98개라 일일히 만들기엔 양이 방대하네요
  
  해결방법을 알려주시면 너무 감사합니다.
  
  첨부파일 : 과세-면세-예시.xlsx
- 해피 님 작성자
  
  2022-03-17 16:16
  
  @나는나 님 도움되었습니다 답변감사합니다

« IF 함수 중복 계산이 될까요?

엑셀 한영전환키 입력 안됨 »

목록보기

전체 6,403

번호	카테고리	제목	작성자	작성일	추천	조회
알림		[🏆 진짜쓰는 실무엑셀 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (8) 오빠두엑셀 \| 2022.04.30 \| 추천 9 \| 조회 1126	오빠두엑셀	2022.04.30	9	1126

공지사항	함수/공식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (62) 오빠두엑셀 \| 2021.10.28 \| 추천 79 \| 조회 4436	오빠두엑셀	2021.10.28	79	4436
34219	기능/도구	New 주말 날짜가 적힌 셀의 행 일부분이 자동으로 색 채우기가 되는 방법 있나요? forest choi \| 00:59 \| 추천 0 \| 조회 12	forest choi	00:59	0	12
34218	함수/공식	New VLOOKUP 함수 여러개 값 가져오기에서 빈셀은 빼고 데이터가 작성된 것만 가져오기 문제 관련 moonlights \| 00:26 \| 추천 0 \| 조회 14	moonlights	00:26	0	14
34213	함수/공식	New [vlookup] 다른 엑셀파일 출력값의 ture 값 색변경하기 pk2616 \| 2022.05.19 \| 추천 0 \| 조회 14	pk2616	2022.05.19	0	14
34205	VBA	New [택배송장만들기] 수량만큼 행추가하고 복사하기 (1) 수메리안 \| 2022.05.19 \| 추천 0 \| 조회 24	수메리안	2022.05.19	0	24
34204	파워쿼리/피벗	New 쿼리 평수값에서 m2 제거하고 숫자만 남길 수 있는 방법 있을까요? (1) shxhehskc \| 2022.05.19 \| 추천 0 \| 조회 25	shxhehskc	2022.05.19	0	25
34202	파워쿼리/피벗	New 쿼리파일에서 한 칸만 삭제하기 shxhehskc \| 2022.05.19 \| 추천 -1 \| 조회 28	shxhehskc	2022.05.19	-1	28
34199	함수/공식	New 시간대별 여러 시트 값 합치기 (3) sjlee**** \| 2022.05.19 \| 추천 0 \| 조회 35	sjlee****	2022.05.19	0	35
34197	함수/공식	New 일수를 개월 일로 나타나는 방법을 알려주세요 (1) nab \| 2022.05.19 \| 추천 0 \| 조회 24	nab	2022.05.19	0	24
34196	함수/공식	New 합계 구하기 _ 도와주세요... ㅠㅠ (2) 연어샐러드 \| 2022.05.19 \| 추천 0 \| 조회 28	연어샐러드	2022.05.19	0	28
34191	파워쿼리/피벗	New 하나의 열의 내용 중 중복되는 내용을 각각 다른 열에 배치할 수 있을까요? (1) shxhehskc \| 2022.05.19 \| 추천 0 \| 조회 24	shxhehskc	2022.05.19	0	24
34190	파워쿼리/피벗	New 쿼리 실행 중 몇개의 행만 첫 행을 머릿글로 사용하기 (2) shxhehskc \| 2022.05.19 \| 추천 0 \| 조회 24	shxhehskc	2022.05.19	0	24
34186	문서서식	New 문서 서식 글자 바뀌는것 질문 (1) 동준 \| 2022.05.19 \| 추천 0 \| 조회 16	동준	2022.05.19	0	16
34185	문서서식	New 카드내역 다운받아 사용금액 합계를 했는데.. 합계가 안되네요 (1) akdlt**** \| 2022.05.19 \| 추천 0 \| 조회 21	akdlt****	2022.05.19	0	21
34180	구글시트	New REGEXEXTRACT (2) 답변완료 마법의손 \| 2022.05.19 \| 추천 0 \| 조회 32	마법의손	2022.05.19	0	32
34179	대시보드	New 엑셀 하단에 시트이름 나온곳 넓게 쓰고 싶은데 고정안될까요? (1) 태봉 \| 2022.05.19 \| 추천 0 \| 조회 27	태봉	2022.05.19	0	27
34175	문서서식	New 빈칸 셀위에 색상표시? (1) km**** \| 2022.05.19 \| 추천 0 \| 조회 27	km****	2022.05.19	0	27
34174	VBA	New VBA changelink 이용하여 원본파일 변경 시, 워크시트도 같이 변경하는 방법 (3) 쿠킹왕자 \| 2022.05.19 \| 추천 0 \| 조회 30	쿠킹왕자	2022.05.19	0	30
34171	구글시트	New 다른 시트에서 원하는 값 불러오기 (11) 나도엑셀천재? \| 2022.05.19 \| 추천 1 \| 조회 45	나도엑셀천재?	2022.05.19	1	45
34169	함수/공식	New 오빠두 강의중 텍스트나누기 공식 질문드립니다. 월마리아 \| 2022.05.19 \| 추천 0 \| 조회 40	월마리아	2022.05.19	0	40
34166	차트/그래프	New 누적 가로막대 차트 비율이 안맞습니다 (2) 답변완료 어제부터VBA \| 2022.05.18 \| 추천 0 \| 조회 35	어제부터VBA	2022.05.18	0	35
34164	파워쿼리/피벗	New DRM걸린 문서를 오피스365 엑셀의 파워쿼리에서 처리하면 에러가 발생을 합니다. (1) new**** \| 2022.05.18 \| 추천 0 \| 조회 24	new****	2022.05.18	0	24
34162	함수/공식	New 다른 시트와 연동, vlookup 함수 연동 오류 해결 방법ㅜㅜ 나도엑셀천재? \| 2022.05.18 \| 추천 1 \| 조회 22	나도엑셀천재?	2022.05.18	1	22
34152	VBA	New 변수 선언에 필요한 변수명을 동적으로 만들 수 있나요? (Dynamic Variable Name) (7) 답변완료 나는나 \| 2022.05.18 \| 추천 0 \| 조회 49	나는나	2022.05.18	0	49
34148	문서서식	New 엑셀 기본표시형식 설정 해결방법 (1) zoe \| 2022.05.18 \| 추천 0 \| 조회 30	zoe	2022.05.18	0	30
34146	피벗테이블	New 피벗테이블 열 합계 시 값이 다르게 나옵니다. 또한 한 아이템이 시간에 따라 2개의 가격을 가질 때 어떻게 처리를 해야하나요? (1) 엽이 \| 2022.05.18 \| 추천 2 \| 조회 28	엽이	2022.05.18	2	28
34144	함수/공식	New 음수를 제외한 양수들만으로 오름차순으로 순위 내는법 (1) 리테일러 \| 2022.05.18 \| 추천 0 \| 조회 33	리테일러	2022.05.18	0	33
34143	함수/공식	New 평일 출근부 만들기 (3) 답변완료 왜사는건지 \| 2022.05.18 \| 추천 0 \| 조회 43	왜사는건지	2022.05.18	0	43
34136	함수/공식	New 백분율의 합계? 백분율의 평균 값?이 다른이유가 있을까요? (4) 한다운 \| 2022.05.18 \| 추천 0 \| 조회 29	한다운	2022.05.18	0	29
34135	함수/공식	New 음수를 제외한 양수들의 합만으로 순위 내는법 (8) 답변완료 리테일러 \| 2022.05.18 \| 추천 2 \| 조회 51	리테일러	2022.05.18	2	51
34134	VBA	New VBA 필터 지정후 이미지 저장 문의 (6) 답변완료 다다익선 \| 2022.05.18 \| 추천 0 \| 조회 36	다다익선	2022.05.18	0	36