วิธีจัดเรียงหลายแถวหรือคอลัมน์อย่างอิสระพร้อมกันใน Excel
ใน Excel คุณสามารถใช้คุณลักษณะการเรียงลำดับเพื่อจัดเรียงแถวหรือคอลัมน์เพียงแถวเดียวในช่วงของคอลัมน์ แต่ถ้าคุณต้องการจัดเรียงแถวหรือคอลัมน์หลายแถวพร้อมกันเพื่อให้ได้ภาพหน้าจอต่อไปนี้ มีวิธีง่ายๆในการแก้ปัญหานี้ใน Excel หรือไม่?
จัดเรียงหลายคอลัมน์อย่างอิสระพร้อมกันด้วยรหัส VBA
จัดเรียงหลายแถวอย่างอิสระพร้อมกันด้วยรหัส VBA
จัดเรียงหลายคอลัมน์อย่างอิสระพร้อมกันด้วยรหัส VBA
ในการจัดเรียงคอลัมน์หลายคอลัมน์อย่างเป็นอิสระจากน้อยไปหามากรหัส VBA ต่อไปนี้อาจช่วยคุณได้โปรดทำดังนี้
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: จัดเรียงหลายคอลัมน์อย่างอิสระพร้อมกัน:
Sub SortIndividualJR()
'Updateby Extendoffice
Dim xRg As Range
Dim yRg As Range
Dim ws As Worksheet
Set ws = ActiveSheet
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Kutools for excel", Type:=8)
Application.ScreenUpdating = False
For Each yRg In xRg
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=yRg, Order:=xlAscending
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Header = xlNo
.MatchCase = False
.Apply
End With
Next yRg
Application.ScreenUpdating = True
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการจัดเรียงตามแต่ละคอลัมน์ดูภาพหน้าจอ:
4. จากนั้นคลิก OKแต่ละคอลัมน์ได้รับการจัดเรียงตามลำดับในครั้งเดียวดูภาพหน้าจอ:

ปลดล็อก Excel Magic ด้วย Kutools AI
- การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
- สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
- การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
- การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
- การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ
จัดเรียงหลายแถวอย่างอิสระพร้อมกันด้วยรหัส VBA
หากคุณต้องการจัดเรียงหลายแถวอย่างอิสระนี่คือรหัส VBA สำหรับคุณ
1. เลือกข้อมูลที่คุณต้องการจัดเรียงตามแต่ละแถว
2. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: เรียงหลายแถวแยกกันพร้อมกัน:
Sub SortIndividualR()
'Updateby Extendoffice
Dim xRg As Range, yRg As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set xRg = Selection
If xRg.Count = 1 Then
MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Application.ScreenUpdating = False
For Each yRg In xRg.Rows
yRg.Sort Key1:=yRg.Cells(1, 1), _
Order1:=xlAscending, _
Header:=xlNo, _
Orientation:=xlSortRows
Next yRg
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
Application.ScreenUpdating = True
End Sub
4. จากนั้นกด F5 คีย์ในการเรียกใช้รหัสนี้ข้อมูลในแต่ละแถวได้รับการจัดเรียงพร้อมกันดูภาพหน้าจอ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!