วิธีคัดลอกแผ่นงานและเปลี่ยนชื่อโดยอัตโนมัติใน 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 : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. คลิก Kutools พลัส > แผ่นงาน > สร้างแผ่นงานลำดับดูภาพหน้าจอ:
2. ใน สร้างแผ่นงานลำดับ กล่องโต้ตอบ:
(1. ) เลือกชื่อแผ่นงานที่คุณต้องการคัดลอกจากไฟล์ แผ่นงานฐาน รายการแบบหล่นลง
(2. ) จากนั้นระบุจำนวนแผ่นงานที่คุณต้องการคัดลอกด้านล่าง จำนวนการสร้าง กล่องข้อความ;
(3. ) แล้วตรวจสอบ หมายเลขลำดับ ภายใต้ ชื่อแผ่นงานขึ้นอยู่กับ มาตรา;
(4. ) ในที่สุดสร้างชื่อแผ่นงานลำดับในบานหน้าต่างด้านขวาที่คุณต้องการดูภาพหน้าจอ:
3. หลังจากเสร็จสิ้นการตั้งค่าโปรดคลิก Ok และมีการคัดลอกแผ่นงานเฉพาะหลายครั้งและเปลี่ยนชื่อตามลำดับที่คุณสร้างขึ้นในสมุดงานใหม่ดูภาพหน้าจอ:
คลิกดาวน์โหลด Kutools for Excel ฟรีทันที!
การสาธิต: คัดลอกแผ่นงานหลาย ๆ ครั้งและเปลี่ยนชื่อด้วยชื่อที่กำหนดเองโดยใช้ Kutools for Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
