จะสร้างแผ่นงานหลายแผ่นจากรายการค่าเซลล์ได้อย่างไร?

มีวิธีการที่ง่ายหรือรวดเร็วสำหรับเราในการสร้างแผ่นงานหลายแผ่นตามรายการค่าเซลล์ใน Excel หรือไม่? ในบทความนี้ฉันจะพูดถึงเทคนิคที่ดีในการแก้ปัญหานี้

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

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

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

ในการสร้างแผ่นงานใหม่หลายแผ่นอย่างรวดเร็วซึ่งตั้งชื่อด้วยรายการค่าของเซลล์รหัส VBA ต่อไปนี้สามารถช่วยคุณได้

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

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

รหัส VBA: สร้างแผ่นงานหลายแผ่นจากรายการเซลล์:

Sub AddSheets()
'Updateby Extendoffice
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A1:A7")
        With wBk
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xRg.Value
            If Err.Number = 1004 Then
              Debug.Print xRg.Value & " already used as a sheet name"
            End If
            On Error GoTo 0
        End With
    Next xRg
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในโค้ดด้านบน A1: A7 คือช่วงเซลล์ที่คุณต้องการสร้างแผ่นงานตามความต้องการโปรดเปลี่ยนเป็นช่วงที่คุณต้องการ

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

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

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

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

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

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

(1. ) เลือกหนึ่งแผ่นงานที่คุณต้องการสร้างแผ่นงานลำดับตาม;

(2. ) จากนั้นเลือก ข้อมูล ในตัวเลือกช่วงจาก ชื่อแผ่นงานขึ้นอยู่กับ กล่องรายการแล้วคลิก เพื่อเลือกค่าเซลล์ที่คุณต้องการใช้

3. จากนั้นคลิก Ok ปุ่มแผ่นงานถูกสร้างขึ้นพร้อมชื่อของค่าเซลล์ในสมุดงานใหม่ดูภาพหน้าจอ:

คลิกดาวน์โหลดและทดลองใช้ฟรี Kutools for Excel ทันที!