Note: The other languages of the website are Google-translated. Back to English

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

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

doc-create-sheets-from-list1

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

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

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ ทำงานร่วมกับ Office 2007-2019 และ 365; รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวา สร้างแผ่นงานลำดับจากรายการเซลล์ด้วยรหัส 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-from-list2

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

doc-create-sheets-from-list3

หมายเหตุ:

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

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

doc-create-sheets-from-list4
-1
doc-create-sheets-from-list5

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

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

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

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

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

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

doc-create-sheets-from-list6

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

doc-create-sheets-from-list7

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

doc-create-sheets-from-list8

หมายเหตุ:

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

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

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

doc-create-sheets-from-list9
-1
doc-create-sheets-from-list10

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


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

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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (9)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มาก. ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องทำซ้ำแผ่นงานหนึ่งแผ่นเมื่อสร้างแผ่นงานใหม่ทั้งหมดจากรายการ คุณสามารถเพิ่มรหัสสำหรับสิ่งนั้นได้ไหม ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถคลิกขวาที่แท็บและเลือก "ย้ายหรือคัดลอก" เพื่อทำสำเนา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันสามารถยกเว้นช่องว่างและคัดลอกข้อมูลโดยอัตโนมัติโดยใช้ชื่อ "อยู่เบื้องหลัง" ได้หรือไม่? ข้อมูลนี้สร้างจากเดือย และฉันต้องการให้มีชื่อทั้งหมดในแท็บต่างๆ ที่มีข้อมูลอยู่เบื้องหลังในเลย์เอาต์ ข้อมูล name1 ข้อมูล ข้อมูล ว่างเปล่า ข้อมูล ข้อมูล ว่างเปล่า ชื่อ 2 ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณช่วยแก้ไขโค้ด VBA เพื่อที่ว่าถ้าแผ่นงานนั้นมีอยู่ ให้ข้ามไปได้หรือไม่ ตามที่มีอยู่แล้ว การรันโค้ดอีกครั้งในช่วงเดียวกันจะสร้างเวิร์กชีตที่มีหมายเลข ขอบคุณ! คริส
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันต้องการสร้างใบแจ้งหนี้โดยใช้ excel และจำเป็นต้องรู้ว่ามีวิธีสร้างหน้าต่อเนื่องที่สองโดยอัตโนมัติหรือไม่เมื่อรายการในหน้าแรกเกินรูปแบบหน้า A4 ที่ฉันกำหนดไว้ล่วงหน้า ความช่วยเหลือใด ๆ ที่ชื่นชม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เป็นไปได้ไหมที่จะตั้งค่าเทมเพลตสำหรับชีตใหม่ที่สร้างขึ้น แทนที่จะเป็นเวิร์กชีตเปล่า ขอบคุณเดฟ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จะแก้ไขโค้ดเพื่อคัดลอกเวิร์กชีตชื่อ "Template" และเปลี่ยนชื่อเป็นค่าในรายการที่เลือกในช่วงได้อย่างไร ฉันพยายามแก้ไขโค้ด "worksheets.Add" เป็น "Worksheets("Template") คัดลอก แต่เพิ่งทำสำเนาด้วยเวิร์กชีตที่ระบุว่า "Template(1)", "Template (2)" เป็นต้น นอกจากนี้ยังมี วิธีวางแท็บในลำดับตัวเลขเมื่อเพิ่มเข้ามา?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีเพิ่มตารางตามค่าเริ่มต้นด้วยชื่อแถวและชื่อคอลัมน์บนแผ่นงานหลังจากสร้างแผ่นงานโดยใช้ปุ่มคำสั่ง กรุณาช่วย.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ