วิธีจัดเรียงข้อมูลบนแผ่นงานหลายแผ่นพร้อมกัน?
ใน Excel เราสามารถจัดเรียงข้อมูลในแผ่นงานตามคอลัมน์เฉพาะได้อย่างรวดเร็วและง่ายดาย แต่คุณเคยพยายามจัดเรียงข้อมูลในแผ่นงานหลายแผ่นหรือไม่? ในการเรียงลำดับทีละรายการจะต้องใช้เวลานานบทความนี้จะแนะนำวิธีง่ายๆในการแก้ปัญหา
จัดเรียงข้อมูลบนแผ่นงานหลายแผ่นพร้อมกันด้วยรหัส VBA
จัดเรียงข้อมูลบนแผ่นงานหลายแผ่นพร้อมกันด้วยรหัส VBA
ในการจัดเรียงข้อมูลตามคอลัมน์เดียวในทุกแผ่นงานของคุณรหัส VBA ต่อไปนี้สามารถช่วยคุณได้
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: จัดเรียงข้อมูลบนแผ่นงานหลายแผ่นพร้อมกัน:
Sub SortAllSheets()
'Updateby Extendoffice
Dim WS As Worksheet
ActiveSheet.Range("a1:f1").Select
Selection.Copy
On Error Resume Next
Application.ScreenUpdating = False
For Each WS In Worksheets
WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
Next WS
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
Application.ScreenUpdating = True
End Sub
3. จากนั้นกด F5 คีย์ในการเรียกใช้รหัสนี้แผ่นงานทั้งหมดที่มีการจัดรูปแบบเหมือนกันได้รับการจัดเรียงตามคอลัมน์ E ของแต่ละแผ่นงานโดยเรียงลำดับจากมากไปหาน้อยพร้อมกัน
หมายเหตุ: ในโค้ดด้านบน A: F คือช่วงข้อมูลที่คุณต้องการจัดเรียง E คือตัวอักษรคอลัมน์ที่คุณต้องการจัดเรียงตาม
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!