ไปยังเนื้อหาหลัก

วิธีสร้างแผ่นงานลำดับจากช่วงของเซลล์ใน Excel

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

doc-create-sheets-จาก-list1

สร้างแผ่นงานลำดับจากรายการเซลล์ด้วยรหัส VBA

สร้างแผ่นงานลำดับจากรายการเซลล์ด้วย Kutools for Excel


ลูกศรสีฟ้าฟองขวา สร้างแผ่นงานลำดับจากรายการเซลล์ด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณเพิ่มแผ่นงานบางแผ่นซึ่งตั้งชื่อตามเนื้อหาของเซลล์หลังจากแผ่นงานที่มีอยู่ กรุณาทำตามนี้:

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

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: เพิ่มแผ่นงานลำดับตามรายการเซลล์

Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
        Ws.Name = arr(i, j)
    Next
Next
Application.ScreenUpdating = True
End Sub

3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้จากนั้นกล่องพร้อมต์จะปรากฏขึ้นเพื่อให้คุณเลือกช่วงที่คุณต้องการใช้ ดูภาพหน้าจอ:

doc-create-sheets-จาก-list2

4. จากนั้นคลิก OKแผ่นงานที่ตั้งชื่อตามค่าของเซลล์ได้ถูกเพิ่มเข้าไปหลังจากแผ่นงานที่มีอยู่ ดูภาพหน้าจอ:

doc-create-sheets-จาก-list3

หมายเหตุ:

1. แผ่นงานใหม่จะถูกแทรกหลังแผ่นงานปัจจุบัน

2. ถ้าช่วงที่เลือกมีเซลล์ว่างเวิร์กชีตจะถูกตั้งชื่อตามค่าเริ่มต้น ดูภาพหน้าจอ:

doc-create-sheets-จาก-list4
-1
doc-create-sheets-จาก-list5

ลูกศรสีฟ้าฟองขวา สร้างแผ่นงานลำดับจากรายการเซลล์ด้วย Kutools for Excel

ที่นี่ฉันแนะนำเครื่องมือที่มีประโยชน์ -Kutools สำหรับ Excelเดียวกันกับที่ สร้างแผ่นงานลำดับคุณสามารถสร้างแผ่นงานได้อย่างรวดเร็วด้วยชื่อเดือนชื่อวันรายการที่กำหนดเองและอื่น ๆ

Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now.

หลังจากติดตั้ง Kutools for Excel แล้วโปรดทำตามขั้นตอนต่อไปนี้:

1. เลือกช่วงที่คุณต้องการสร้างเวิร์กชีตตาม

2. คลิก Enterprise > เครื่องมือแผ่นงาน > สร้างแผ่นงานลำดับดูภาพหน้าจอ:

doc-create-sheets-จาก-list6

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

doc-create-sheets-จาก-list7

4. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบและมีการสร้างสมุดงานใหม่ที่มีเวิร์กชีตตามข้อมูลช่วงที่เลือก ดูภาพหน้าจอ:

doc-create-sheets-จาก-list8

หมายเหตุ:

1. หากคุณเลือกแผ่นงาน 1 หรือแผ่นงาน 2 แผ่นงานใหม่ที่สร้างขึ้นจะเป็นการจัดรูปแบบเดียวกับแผ่นงาน 1 หรือแผ่นงาน 2

2. แผ่นงานใหม่ถูกสร้างขึ้นในสมุดงานใหม่

3. ถ้าช่วงที่เลือกมีเซลล์ว่างเวิร์กชีตจะถูกตั้งชื่อตามค่าเริ่มต้น ดูภาพหน้าจอ:

doc-create-sheets-จาก-list9
-1
doc-create-sheets-จาก-list10

คลิกเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะ Create Sequence Worksheets


บทความที่เกี่ยวข้อง:

วิธีเพิ่มแผ่นงานใหม่ด้วยชื่อที่กำหนดเองใน Excel

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to add bydefault table with row name and column name on sheets after creating sheets using command button. Please help.
This comment was minimized by the moderator on the site
How can the code be modified to copy a worksheet labeled "Template" and rename it to the values in the list selected in the range? I tried modifying the "worksheets.Add" code to "Worksheets("Template").Copy but it just makes copies with the worksheets labeled "Template(1)", "Template(2)", etc. Also, is there a way to put the tabs in numerical order as they are added?
This comment was minimized by the moderator on the site
Hi, Would it be possible to set-up a template for the new sheets created, instead of blank worksheets. Thanks Dave
This comment was minimized by the moderator on the site
Hi, I want to create invoices using excel and need to know whether is there a way to auto generate the second continuation page when the items on the first page exceed the A4 page layout that I have predefined? Any help is appreciated.
This comment was minimized by the moderator on the site
Could you modify the VBA code so that if the worksheet exists, it is skipped over? As it exists now, running the code a second time on the same range will create numbered worksheets. Thanks! Chris
This comment was minimized by the moderator on the site
Hello, Can I exclude blanks and automatically copy data with is behind the name? This data is generated from a pivot and I want to have all the names in different tabs with the data behind it in the layout. name1 data data data blank data data data blank Name 2 Thanks!
This comment was minimized by the moderator on the site
I need to duplicate one sheet when making all these new sheets from a list. Can you add the code for that? Thanks!
This comment was minimized by the moderator on the site
You can right click the tab and choose "move or copy" to duplicate it.
This comment was minimized by the moderator on the site
Very useful. thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations