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

วิธีจัดเรียงตัวเลขภายในเซลล์ใน Excel

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-10-23

เป็นเรื่องง่ายและเป็นเรื่องปกติที่เราจะจัดเรียงตัวเลขในรายการคอลัมน์ แต่คุณเคยพยายามจัดเรียงตัวเลขภายในเซลล์เดียวหรือไม่? อาจไม่มีวิธีที่ดีสำหรับคุณยกเว้นจัดเรียงทีละรายการที่นี่ฉันจะพูดถึงวิธีการเรียงลำดับตัวเลขภายในเซลล์ใน 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 ระบุเซลล์ที่มีตัวเลขที่คุณต้องการจัดเรียงคุณสามารถเปลี่ยนได้ตามต้องการ

ภาพหน้าจอของ kutools สำหรับ excel ai

ปลดล็อก Excel Magic ด้วย Kutools AI

  • การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
  • สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
  • การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
  • การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
  • การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ
ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

ลูกศรสีฟ้าฟองขวา จัดเรียงตัวเลขภายในเซลล์ด้วย 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) ลงในเซลล์ว่างถัดจากข้อมูลของคุณดูภาพหน้าจอ:

จัดเรียงตัวเลขภายในเซลล์ด้วย User Defined Function

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 เพื่อเรียกใช้รหัสนี้จากนั้นเลือกเซลล์ของคุณที่มีตัวเลขในกล่องพรอมต์ที่โผล่ออกมาดูภาพหน้าจอ:

รหัส VBA สำหรับการเลือกเซลล์

4. จากนั้นคลิก OKตัวเลขทั้งหมดในเซลล์จะเรียงลำดับจากน้อยไปมากในช่วงเดิม

หมายเหตุ: คุณสามารถเปลี่ยนเครื่องหมายจุลภาค“,” เป็นอักขระอื่น ๆ ตามที่คุณต้องการในโค้ดด้านบน และรหัสนี้สามารถจัดเรียงข้อมูลจากน้อยไปมากเท่านั้น


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

วิธีจัดเรียงตัวเลขด้วยยัติภังค์ใน Excel

วิธีจัดเรียงข้อมูลตามค่าที่พบบ่อยที่สุดใน Excel?

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

วิธีจัดเรียงแถวเพื่อวางเซลล์ว่างไว้ด้านบนใน Excel

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

🤖 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% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!