วิธีจัดเรียงตัวเลขภายในเซลล์ใน Excel
เป็นเรื่องง่ายและเป็นเรื่องปกติที่เราจะจัดเรียงตัวเลขในรายการคอลัมน์ แต่คุณเคยพยายามจัดเรียงตัวเลขภายในเซลล์เดียวหรือไม่? อาจไม่มีวิธีที่ดีสำหรับคุณยกเว้นจัดเรียงทีละรายการที่นี่ฉันจะพูดถึงวิธีการเรียงลำดับตัวเลขภายในเซลล์ใน Excel
จัดเรียงตัวเลขภายในเซลล์ด้วยสูตร
จัดเรียงตัวเลขภายในเซลล์ด้วย User Defined Function
จัดเรียงตัวเลขที่คั่นด้วยเครื่องหมายจุลภาคภายในเซลล์ด้วยรหัส VBA
จัดเรียงตัวเลขภายในเซลล์ด้วยสูตร
ในการจัดเรียงตัวเลขภายในเซลล์ในแผ่นงานคุณสามารถใช้สูตรยาวต่อไปนี้ได้โปรดทำดังนี้:
1. ถัดจากข้อมูลของคุณโปรดป้อนสูตรต่อไปนี้ในตัวอย่างนี้ฉันจะพิมพ์ลงในเซลล์ C1 ดูภาพหน้าจอ:
=TEXT(SUM(SMALL(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1)))
2. จากนั้นกด Ctrl + Shift + Enter เข้าด้วยกันจากนั้นลากจุดจับเติมไปยังช่วงที่คุณต้องการใช้สูตรนี้และคุณจะได้รับตัวเลขที่เรียงลำดับจากเล็กไปหาใหญ่ ดูภาพหน้าจอ:
หมายเหตุ:
1. ถ้าหลักของตัวเลขมากกว่า 15 ในเซลล์สูตรนี้จะไม่ได้ผลลัพธ์ที่ถูกต้อง
2. หากคุณต้องการเรียงลำดับตัวเลขจากมากไปหาน้อยคุณสามารถใช้สูตรนี้: =TEXT(SUM(LARGE(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1))).
3. ในสูตรด้านบน A1 ระบุเซลล์ที่มีตัวเลขที่คุณต้องการจัดเรียงคุณสามารถเปลี่ยนได้ตามต้องการ
จัดเรียงตัวเลขภายในเซลล์ด้วย User Defined Function
เนื่องจากมีข้อ จำกัด บางประการของสูตรคุณสามารถใช้สิ่งต่อไปนี้ ฟังก์ชันที่ผู้ใช้กำหนด เพื่อจัดเรียงตัวเลขในเซลล์ที่ยาวกว่า 15 หลัก
1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: จัดเรียงตัวเลขภายในเซลล์
Function SortNumsInCell(pNum As String, Optional pOrder As Boolean) As String
'Update 20140717
Dim xOutput As String
For i = 0 To 9
For j = 1 To UBound(VBA.Split(pNum, i))
xOutput = IIf(pOrder, i & xOutput, xOutput & i)
Next
Next
SortNumsInCell = xOutput
End Function
3. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานของคุณแล้วป้อนสูตรนี้ = sortnumsincell (A1) ลงในเซลล์ว่างถัดจากข้อมูลของคุณดูภาพหน้าจอ:
4. จากนั้นลากจุดจับเติมไปยังเซลล์ที่คุณต้องการให้มีสูตรนี้และตัวเลขทั้งหมดในเซลล์จะถูกเรียงลำดับจากน้อยไปมากตามภาพหน้าจอต่อไปนี้:
หมายเหตุ: หากคุณต้องการเรียงลำดับตัวเลขจากมากไปหาน้อยโปรดป้อนสูตรนี้ = sortnumsincell (A1,1)
จัดเรียงตัวเลขที่คั่นด้วยเครื่องหมายจุลภาคภายในเซลล์ด้วยรหัส VBA
หากตัวเลขของคุณถูกคั่นด้วยอักขระบางตัวเช่นลูกน้ำอัฒภาคเครื่องหมายจุดและอื่น ๆ ตามภาพหน้าจอต่อไปนี้คุณจะเรียงลำดับในเซลล์ได้อย่างไร ตอนนี้ขอแนะนำรหัส VBA เพื่อให้คุณเรียงลำดับ
1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: เรียงลำดับตัวเลขคั่นด้วยเครื่องหมายจุลภาคภายในเซลล์
Sub SortNumsInRange()
'Update 20140717
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set objArrayList = CreateObject("System.Collections.ArrayList")
For Each Rng In WorkRng
Arr = VBA.Split(Rng.Value, ",")
For i = 0 To UBound(Arr)
xMin = i
For j = i + 1 To UBound(Arr)
If Arr(xMin) > Arr(j) Then
xMin = j
End If
Next j
If xMin <> i Then
temp = Arr(i)
Arr(i) = Arr(xMin)
Arr(xMin) = temp
End If
Next i
Rng.Value = VBA.Join(Arr, ",")
Next
End Sub
3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้จากนั้นเลือกเซลล์ของคุณที่มีตัวเลขในกล่องพรอมต์ที่โผล่ออกมาดูภาพหน้าจอ:
4. จากนั้นคลิก OKตัวเลขทั้งหมดในเซลล์จะเรียงลำดับจากน้อยไปมากในช่วงเดิม
หมายเหตุ: คุณสามารถเปลี่ยนเครื่องหมายจุลภาค“,” เป็นอักขระอื่น ๆ ตามที่คุณต้องการในโค้ดด้านบน และรหัสนี้สามารถจัดเรียงข้อมูลจากน้อยไปมากเท่านั้น
บทความที่เกี่ยวข้อง:
วิธีจัดเรียงตัวเลขด้วยยัติภังค์ใน Excel
วิธีจัดเรียงข้อมูลตามค่าที่พบบ่อยที่สุดใน Excel?
วิธีจัดเรียงที่อยู่อีเมลตามโดเมนใน Excel
วิธีจัดเรียงแถวเพื่อวางเซลล์ว่างไว้ด้านบนใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
