วิธีคัดลอกแผ่นงานและเปลี่ยนชื่อโดยอัตโนมัติใน Excel

ใน Excel คุณจะคัดลอกแผ่นงานและเปลี่ยนชื่อโดยอัตโนมัติโดยไม่ต้องพิมพ์ชื่อตามปกติได้อย่างไร ในบทความนี้ฉันจะพูดถึงวิธีการคัดลอกแผ่นงานหนึ่งครั้งหรือหลายครั้งและตั้งชื่อเฉพาะให้พวกเขาพร้อมกัน

คัดลอกแผ่นงานหลาย ๆ ครั้งและเปลี่ยนชื่อด้วยชื่อแท็บที่เพิ่มขึ้นโดยใช้รหัส VBA

คัดลอกแผ่นงานหลาย ๆ ครั้งและเปลี่ยนชื่อด้วยชื่อที่กำหนดเองโดยใช้ Kutools for Excel

คัดลอกแผ่นงานหลาย ๆ ครั้งและเปลี่ยนชื่อด้วยชื่อแท็บที่เพิ่มขึ้นโดยใช้รหัส VBA

หากคุณต้องการคัดลอกแผ่นงานหลาย ๆ ครั้งและตั้งชื่อซีรีส์ให้พวกเขาเช่น KTE-1, KTE-2, KTE-3, KTE-4 …รหัส VBA ต่อไปนี้สามารถช่วยคุณได้

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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. ป้อนจำนวนสำเนาในกล่องโต้ตอบที่โผล่ขึ้นมาจากนั้นคลิก OK แผ่นงานปัจจุบันของคุณถูกทำสำเนา 5 ชุดและเปลี่ยนชื่อด้วยชื่อลำดับตามภาพหน้าจอต่อไปนี้:

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนข้อความชื่อแผ่นงาน“เคทีอี-” ตามที่คุณต้องการ

คัดลอกแผ่นงานหลาย ๆ ครั้งและเปลี่ยนชื่อด้วยชื่อที่กำหนดเองโดยใช้ Kutools for Excel

บางทีรหัส VBA ข้างต้นอาจเป็นเรื่องยากสำหรับคุณในการสมัครที่นี่ฉันจะแนะนำเครื่องมือง่ายๆ - Kutools สำหรับ Excelเดียวกันกับที่ สร้างแผ่นงานลำดับ ยูทิลิตี้คุณสามารถบรรลุภารกิจนี้ได้โดยไม่ต้องใช้ความพยายามใด ๆ

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. คลิก Kutools พลัส > แผ่นงาน > สร้างแผ่นงานลำดับดูภาพหน้าจอ:

2. ใน สร้างแผ่นงานลำดับ กล่องโต้ตอบ:

(1. ) เลือกชื่อแผ่นงานที่คุณต้องการคัดลอกจากไฟล์ แผ่นงานฐาน รายการแบบหล่นลง

(2. ) จากนั้นระบุจำนวนแผ่นงานที่คุณต้องการคัดลอกด้านล่าง จำนวนการสร้าง กล่องข้อความ;

(3. ) แล้วตรวจสอบ หมายเลขลำดับ ภายใต้ ชื่อแผ่นงานขึ้นอยู่กับ มาตรา;

(4. ) ในที่สุดสร้างชื่อแผ่นงานลำดับในบานหน้าต่างด้านขวาที่คุณต้องการดูภาพหน้าจอ:

3. หลังจากเสร็จสิ้นการตั้งค่าโปรดคลิก Ok และมีการคัดลอกแผ่นงานเฉพาะหลายครั้งและเปลี่ยนชื่อตามลำดับที่คุณสร้างขึ้นในสมุดงานใหม่ดูภาพหน้าจอ:

คลิกดาวน์โหลด Kutools for Excel ฟรีทันที!

การสาธิต: คัดลอกแผ่นงานหลาย ๆ ครั้งและเปลี่ยนชื่อด้วยชื่อที่กำหนดเองโดยใช้ Kutools for Excel