시트 이름 한번에 바꾸는 법

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

  • 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

    '/////////

     

     


  • 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

      @나는나 님 도움되었습니다  답변감사합니다


전체 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