Note: The other languages of the website are Google-translated. Back to English

 Excel에서 셀 값을 기반으로 시트를 복사하고 이름을 바꾸는 방법은 무엇입니까?

일반적으로 이동 또는 복사 기능을 사용하여 워크 시트를 복사 한 다음 필요에 따라 복사본의 새 이름을 수동으로 입력합니다. 그러나 워크 시트를 복사 한 후 셀 값을 기준으로 시트 이름을 변경해 본 적이 있습니까? 이 기사에서는 복사 할 때 셀 값을 기준으로 워크 시트의 이름을 자동으로 바꾸는 방법에 대해 설명합니다.

워크 시트를 복사하고 VBA 코드로 셀 값을 기반으로 이름 바꾸기

Excel 용 Kutools를 사용하여 워크 시트를 여러 번 복사하고 셀 값을 기반으로 이름을 바꿉니다.


워크 시트를 복사하고 VBA 코드로 셀 값을 기반으로 이름 바꾸기

다음 VBA 코드는 워크 시트를 복사하고 특정 셀 값으로 자동으로 이름을 바꾸는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 복사 할 워크 시트를 활성화 한 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 워크 시트를 복사하고 셀 값으로 이름을 바꿉니다.

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하고 현재 워크 시트가 모든 워크 시트 후에 현재 통합 문서에 복사되었으며 지정한 셀 값으로 이름이 변경되었습니다. 스크린 샷을 참조하십시오.

값 1로 문서 복사 raname

주의 사항: 위 코드에서 셀 참조 A1 새로 복사 된 시트에 대해 이름을 바꾸려는 셀 값이며 필요에 따라 변경할 수 있습니다.


Excel 용 Kutools를 사용하여 워크 시트를 여러 번 복사하고 셀 값을 기반으로 이름을 바꿉니다.

위의 코드는 시트를 여러 번 복사하고 셀 값 목록에 따라 이름을 변경해야하는 경우 하나의 셀 값으로 만 이름을 바꿀 수 있습니다. Excel 용 Kutools시퀀스 워크 시트 생성 이 작업을 최대한 빨리 완료하는 데 도움이 될 수 있습니다.

Excel 용 Kutools : 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다.. 

설치 후 Excel 용 Kutools, 다음과 같이하십시오.

1. 딸깍 하는 소리 쿠툴즈 플러스 > 워크 시트 > 시퀀스 워크 시트 생성, 스크린 샷 참조 :

값 3로 문서 복사 raname

2. 에서 시퀀스 워크 시트 생성 대화 상자에서 다음 작업을 수행하십시오.

(1.) 복사 할 워크 시트 이름을 선택합니다. 기본 워크 시트 드롭 다운 목록;

(2.) 아래에서 범위 옵션의 데이터를 선택합니다. 기준 시트 이름 섹션을 클릭 한 다음 값 5로 문서 복사 raname 단추를 클릭하여 복사 된 워크 시트의 이름을 바꿀 기준이되는 셀 값을 선택합니다.

지금 Excel 용 Kutools를 다운로드하십시오!

3. 그런 다음 Ok 버튼을 클릭하고 특정 워크 시트가 여러 번 복사되고 새 통합 문서에서 선택한 셀 값으로 이름이 변경되었습니다. 스크린 샷을 참조하십시오.

값 4로 문서 복사 raname

Excel 용 Kutools를 지금 다운로드하고 무료로 평가하십시오!


데모 : Excel 용 Kutools를 사용하여 워크 시트를 여러 번 복사하고 셀 값에 따라 이름을 바꿉니다.

Excel 용 Kutools: 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다. 지금 다운로드 및 무료 평가판!

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (2)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아래 코드는 훌륭하게 작동합니다. 제 질문은 새 워크시트(A1 기준)를 자동으로 열고 템플릿으로 사용 중인 이전 시트의 내용을 삭제할 수 있습니까? Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" then ActiveSheet.Name = wh.Range("A1 ").Value End If wh.Activate End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
귀하의 코드는 내가 찾던 것이지만 시트의 이름을 바꾸는 데 사용하려는 셀 내용은 날짜입니다. 예를 들어 첫 번째 시트에서 A2 셀은 날짜를 3년 2017월 2일 월요일로 표시합니다. 매크로에 의해 다음 시트가 생성될 때 A7에서 날짜를 가져와서 표시하려면 10을 추가하면 됩니다. 예를 들어 "Monday 2017 July, 10"이지만 dd-mm-yy 형식으로 새 시트의 이름을 "07-17-XNUMX"로 바꿉니다. 이게 가능해? 그건 그렇고, 나는 Excel 용 Kutools가 있지만이 스프레드 시트는 Kutools가없는 아버지를위한 혈압 기록이 될 것입니다. 미리 감사드립니다!
아직 코멘트가 없습니다

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호