วิธีจัดเรียงคอลัมน์อัตโนมัติตามค่าใน Excel

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

เรียงคอลัมน์อัตโนมัติตามค่าด้วย VBA

เรียงคอลัมน์อัตโนมัติตามค่าด้วย VBA

แมโคร VBA นี้จะจัดเรียงข้อมูลทั้งหมดในคอลัมน์เฉพาะโดยอัตโนมัติทันทีที่คุณป้อนข้อมูลใหม่หรือเปลี่ยนค่าในคอลัมน์ใน Excel

1. คลิกขวาที่ชื่อแผ่นงานปัจจุบันในไฟล์ แถบแท็บแผ่นงานแลวคลิกปุ the ม ดูรหัส จากเมนูคลิกขวา

2. ในกล่องโต้ตอบ Microsoft Visual Basic for Application ที่เปิดขึ้นให้วางรหัสแมโคร VBA ต่อไปนี้ลงในหน้าต่างเปิด

VBA: เรียงคอลัมน์อัตโนมัติใน Excel

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

หมายเหตุ:
1) ในรหัส vba ด้านบน BB หมายความว่ามันจะเรียงลำดับคอลัมน์ B โดยอัตโนมัติ B1 เป็นเซลล์แรกในคอลัมน์ B B2 เป็นเซลล์ที่สองในคอลัมน์ B และคุณสามารถเปลี่ยนได้ตามความต้องการของคุณ
2) ข้อมูลโค้ด Header:=xlใช่ ในแถวที่ 5 จะบอก Excel ว่าช่วงที่คุณจะเรียงลำดับมีส่วนหัว เพื่อไม่ให้รวมแถวแรกของช่วงเมื่อเรียงลำดับ หากไม่มีส่วนหัว โปรดเปลี่ยนเป็น ส่วนหัว:=xlNo; และเปลี่ยน Key1:=Range("B2") ในแถวที่ 4 ถึง Key1:=Range("B1").

3. จากนั้นกลับไปที่แผ่นงานเมื่อคุณป้อนตัวเลขใหม่ในคอลัมน์ราคาหรือแก้ไขราคาที่มีอยู่คอลัมน์ราคาจะเรียงลำดับจากน้อยไปมากโดยอัตโนมัติ

หมายเหตุ: เมื่อคุณป้อนตัวเลขใหม่ในคอลัมน์ราคา คุณต้องป้อนตัวเลขในเซลล์ว่างเซลล์แรกด้านล่างตัวเลขเดิม หากมีเซลล์ว่างระหว่างตัวเลขที่ป้อนใหม่และตัวเลขเดิม รวมทั้งเซลล์ว่างระหว่างตัวเลขเดิม คอลัมน์นี้จะไม่จัดเรียงโดยอัตโนมัติ

สาธิต: จัดเรียงคอลัมน์อัตโนมัติตามค่าด้วย VBA ใน Excel