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

วิธีจัดเรียงแผ่นงานตามลำดับตัวอักษร / ตัวเลขและตัวอักษรใน Excel

โดยปกติคุณสามารถจัดเรียงหรือจัดเรียงลำดับแท็บแผ่นงานใน Excel ได้โดยการลากและวางแท็บแผ่นงานบนแถบแท็บแผ่นงาน แต่สำหรับการดำเนินการกับแผ่นงานหลายแผ่นคุณอาจพิจารณาวิธีที่ยุ่งยากต่อไปนี้เพื่อจัดเรียงแผ่นงานตามลำดับตัวอักษร / ตัวเลขและตัวอักษรในสมุดงานขนาดใหญ่ได้อย่างรวดเร็ว

จัดเรียงแผ่นงานตามลำดับตัวอักษร / ตัวเลขและตัวอักษรด้วยรหัส VBA
จัดเรียงแผ่นงานตามลำดับตัวอักษร / ตัวเลขและตัวอักษรด้วย Kutools for Excel


จัดเรียงแผ่นงานตามลำดับตัวอักษร / ตัวเลขและตัวอักษรด้วยรหัส VBA

มีมาโครสำหรับจัดเรียงแผ่นงานตามอัลฟ่าที่โพสต์ในศูนย์สนับสนุนของ Microsoft เราสามารถนำไปใช้ได้ตามขั้นตอนต่อไปนี้:

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

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

VBA: จัดเรียงแผ่นงานตามลำดับตัวอักษร / ตัวเลขและตัวอักษร

Sub SortWorkBook()
'Updateby20140624
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3. กด F5 กุญแจสำคัญในการเรียกใช้แมโครนี้ ในกล่องพร้อมต์ต่อไปนี้คลิก ใช่แผ่นงานทั้งหมดจะเรียงตามลำดับตัวอักษรจากน้อยไปมาก แล้วคลิก ไม่แผ่นงานทั้งหมดจะเรียงตามลำดับตัวอักษรจากมากไปหาน้อย


จัดเรียงแผ่นงานตามลำดับตัวอักษร / ตัวเลขและตัวอักษรด้วย Kutools for Excel

หากคุณไม่คุ้นเคยกับมาโครหรือชอบวิธีอื่นคุณสามารถลองได้ Kutools สำหรับ Excel. Kutools สำหรับ Excel's จัดเรียงชีต เครื่องมือสามารถจัดเรียงแผ่นงานทั้งหมดได้อย่างง่ายดาย

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1. คลิก Kutools พลัส > แผ่นงาน > จัดเรียงชีต. ดูภาพหน้าจอ:

2. ใน จัดเรียงชีต กล่องโต้ตอบเลือกประเภทการจัดเรียงหนึ่งประเภทที่คุณต้องการในบานหน้าต่างด้านขวาเช่น เรียงลำดับอัลฟ่า, เรียงลำดับตัวเลขอัลฟาแลวคลิกปุ the ม OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นแผ่นงานทั้งหมดจะถูกจัดเรียงตามประเภทการเรียงลำดับที่ระบุ ดูภาพหน้าจอ:

เอกสารเรียงลำดับแผ่น 6

Kutools สำหรับ Excel's จัดเรียงชีต เครื่องมือสามารถจัดเรียงแผ่นงานทั้งหมดใหม่ในสมุดงานที่ใช้งานอยู่ได้อย่างรวดเร็ว รองรับการจัดเรียงหลายประเภท ได้แก่ เรียงลำดับอัลฟ่า, เรียงลำดับตัวเลขอัลฟา, เรียงสี และ ย้อนกลับ. นอกจากนี้คุณยังสามารถเลื่อนขึ้น / ลงแผ่นงานและรีเซ็ตการเรียงลำดับ

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


การสาธิต: จัดเรียงแผ่นงานทั้งหมดตามลำดับตัวอักษร / ตัวเลขและตัวอักษร


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

จัดเรียงแท็บแผ่นงานตามสี

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

🤖 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 (81)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou porém com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como está acima
Ele respeita a ordem somente a cada 10

Alguém sabe como corrigir? Olhei no font da macro mas não encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations