Excel에서 시트를 복사하고 자동으로 이름을 변경하는 방법은 무엇입니까?

Excel에서 특정 시트를 복사하고 일반적으로 입력하는 대신 자동으로 이름을 지정하려면 어떻게 해야 할까요? 이 문서에서는 한 번 또는 여러 번 시트를 복사하고 동시에 특정 이름을 지정하는 방법에 대해 설명하겠습니다.

VBA 코드를 사용하여 워크시트를 여러 번 복사하고 증분 탭 이름으로 이름 바꾸기

Kutools for Excel을 사용하여 워크시트를 여러 번 복사하고 사용자 정의 이름으로 이름 바꾸기

VBA 코드를 사용하여 워크시트를 여러 번 복사하고 증분 탭 이름으로 이름 바꾸기

워크시트를 여러 번 복사하고 KTE-1, KTE-2, KTE-3, KTE-4…와 같은 연속적인 이름을 부여해야 하는 경우 다음 VBA 코드가 도움이 될 수 있습니다.

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 워크시트를 여러 번 복사하고 한 번에 이름 바꾸기:

Sub Create()
'Updateby Extendoffice
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면 현재 워크시트를 몇 번 복사할지 묻는 메시지 상자가 나타납니다. 아래 스크린샷 참고:

4. 팝업 대화상자에 복사본 수를 입력한 후 확인 버튼을 클릭하면 현재 워크시트가 5개 복제되고 연속적인 이름으로 이름이 변경됩니다. 아래 스크린샷 참고:

참고: 위의 코드에서 워크시트 이름 텍스트 “KTE-”를 원하는 것으로 변경할 수 있습니다.

Kutools for Excel을 사용하여 워크시트를 여러 번 복사하고 사용자 정의 이름으로 이름 바꾸기

위의 VBA 코드를 적용하기 어려울 수 있습니다. 여기서는 간단한 도구인 Kutools for Excel과 Create Sequence Worksheets 기능을 소개합니다. 이를 통해 쉽게 작업을 수행할 수 있습니다.

Kutools for Excel 설치 후 다음 단계를 따르세요:

1. Kutools Plus > 워크시트 > Create Sequence Worksheets를 클릭하세요. 아래 스크린샷 참고:

2. Create Sequence Worksheets 대화상자에서:

(1.) 복사할 워크시트 이름을 Base Worksheet 드롭다운 목록에서 선택하세요;

(2.) 만들 워크시트 수를 The number of create 텍스트 상자에 지정하세요;

(3.) Sheet names based on 섹션에서 Sequence Numbers를 체크하세요;

(4.) 마지막으로 오른쪽 창에 원하는 순차적 워크시트 이름을 생성하세요. 아래 스크린샷 참고:

3. 설정을 마친 후 확인 버튼을 클릭하면 특정 워크시트가 여러 번 복사되고 새 워크북에서 생성된 순서대로 이름이 변경됩니다. 아래 스크린샷 참고:

지금 바로 Kutools for Excel 무료 다운로드!

데모: Kutools for Excel을 사용하여 워크시트를 여러 번 복사하고 사용자 정의 이름으로 이름 바꾸기