Cần giúp: Sắp xếp lại dãy ký tự số thành tăng dần

[xuongrongdat]

Như tiêu đề, mình nhờ mọi người giúp xử lý chuỗi ký tự số lại để sắp xếp chúng thành tăng dần như hình sau:


Xin cảm ơn.

 

[Binbo2020]

dùng office bao nhiêu thế, cái bài này mà dùng hàm là dài lắm đối với 2013 trở xuống. Mấy hàm mới liên quan đến chuỗi chưa dùng nên không biết có áp dụng được không

 

[Nhattanktnn]

dùng office bao nhiêu thế, cái bài này mà dùng hàm là dài lắm đối với 2013 trở xuống. Mấy hàm mới liên quan đến chuỗi chưa dùng nên không biết có áp dụng được không

Office 2016 nè bạn

 

[xuongrongdat]

dùng office bao nhiêu thế, cái bài này mà dùng hàm là dài lắm đối với 2013 trở xuống. Mấy hàm mới liên quan đến chuỗi chưa dùng nên không biết có áp dụng được không

2016 á anh ơi. Anh xài hàm Concat hả? Mấy hàm mới của Office 2019 là em thua á.

Office 2016 nè bạn

Nhớ luôn ta, hihi. Đúng òi.

 

[Nhattanktnn]

anh ơi

Giúp quài mà giờ còn "anh ơi" thì chịu rồi

 

[befaint]

Google Sheets lèo cái được.
Excel 365 mà có hàm tương tự thì làm tương tự.

 

[xuongrongdat]

Giúp quài mà giờ còn "anh ơi" thì chịu rồi

Oái, tớ kiu anh #hongtrang mà.

Google Sheets lèo cái được.
Excel 365 mà có hàm tương tự thì làm tương tự.

View attachment 253312

Dạ con chưa được xài 365, đó là mơ ước của con, hihi. Con cũng chưa xài Google Sheets. Con đang xài Office 2016.

 

[Binbo2020]

Con đang xài Office 2016

2016 có textjoin rồi mà

 

[xuongrongdat]

2016 có textjoin rồi mà

Ột. Em chưa xài nó lần nào luôn. 2019 với 365 anh ơi.

 

[Binbo2020]

Ột. Em chưa xài nó lần nào luôn. 2019 với 365 anh ơi.

nhớ nhầm, dùng 2013 nên không quen lắm

 

[hocexcel_1991]

Như tiêu đề, mình nhờ mọi người giúp xử lý chuỗi ký tự số lại để sắp xếp chúng thành tăng dần như hình sau:
View attachment 253308

Xin cảm ơn.

Công thức

=TEXT(SUM(SMALL(--MID(B4,TRANSPOSE(ROW(INDIRECT("1:"&LEN(B4)))),1),ROW(INDIRECT("1:"&LEN(B4))))*10^(LEN(B4)-ROW(INDIRECT("1:"&LEN(B4))))),REPT("0",LEN(B4)))
nhấn Ctrl+Shirt+Enter

 

[befaint]

Excel 2019, 365

 

[bebo021999]

Dạo này xuongrongdat thích sưu tầm xương rồng rồi quăng lên đây nhỉ? Mình Ex 2016 nên im hơi lặng tiếng.

 

[Binbo2020]

Không có cài hàm tự tạo đi hoặc dùng cột phụ cho nhàn, định nối thế này nhưng nhiều số công thức dài quá

IFERROR(AGGREGATE(15;6;1*MID(B4;ROW($1:$16);1);1);"")&IFERROR(AGGREGATE(15;6;1*MID(B4;ROW($1:$16);1);2);"")

bao số nối bây nhiêu &...3 4 5 6

 

[snow25]

Như tiêu đề, mình nhờ mọi người giúp xử lý chuỗi ký tự số lại để sắp xếp chúng thành tăng dần như hình sau:
View attachment 253308

Xin cảm ơn.

Dùng thử cái function này xem được không.

Function xapxep(ByVal chuoi As String) As String
        Dim i As Long, arr, a As Integer, b As Integer, j As Integer, s As String
        a = Len(chuoi)
        ReDim arr(1 To a)
        For i = 1 To a
            arr(i) = CLng(Mid(chuoi, i, 1))
        Next i
        For i = 1 To a
            For j = a - 1 To i Step -1
                If arr(j) > arr(j + 1) Then
                   b = arr(j + 1)
                   arr(j + 1) = arr(j)
                   arr(j) = b
                End If
            Next j
        Next i
        For i = 1 To a
            s = s & arr(i)
        Next i
        xapxep = s
End Function

=xapxep(B4)

 

[Binbo2020]

Dạo này chịu khó hỏi bài ghê

 

[VetMini]

Dùng thử cái function này xem được không.

Function xapxep(ByVal chuoi As String) As String
        Dim i As Long, arr, a As Integer, b As Integer, j As Integer, s As String
        a = Len(chuoi)
        ReDim arr(1 To a)
        For i = 1 To a
            arr(i) = CLng(Mid(chuoi, i, 1))
        Next i
        For i = 1 To a
            For j = a - 1 To i Step -1
                If arr(j) > arr(j + 1) Then
                   b = arr(j + 1)
                   arr(j + 1) = arr(j)
                   arr(j) = b
                End If
            Next j
        Next i
        For i = 1 To a
            s = s & arr(i)
        Next i
        xapxep = s
End Function

=xapxep(B4)

Chưz số chúng có thứ tự sẵn của chúng. Sort bằng phươngn pháp "lấy vị trí" khoẻ hơn:

Function SapChuSo(s As String) As String
' hàm sắp xếp các chữ số trong chuỗi cho đúng thứ tự
Dim a(0 To 9) As String, i As Integer, n As Integer
For i = 1 To Len(s)
n = Val(Mid(s, i, 1))
a(n) = a(n) & n
Next i
SapChuSo = Join(a, "")
End Function

 

[batman1]

Tôi đề nghị công thức cho C4

=TEXT(SUM(IFERROR(AGGREGATE(15,6,--MID(B4,ROW(A$1:A$10),1),ROW(A$1:A$10)),0)*10^(LEN(B4)-ROW(A$1:A$10))),REPT("0",LEN(B4)))

Kết thúc công thức bằng Ctrl + Shift + Enter.

Công thức trên giả thiết là các số có nhiều nhất 10 chữ số. Nếu các số có nhiều nhất vd. 15 chữ số thì thay 10 trong ROW(...) bằng 15

 

[snow25]

Chưz số chúng có thứ tự sẵn của chúng. Sort bằng phươngn pháp "lấy vị trí" khoẻ hơn:

Function SapChuSo(s As String) As String
' hàm sắp xếp các chữ số trong chuỗi cho đúng thứ tự
Dim a(0 To 9) As String, i As Integer, n As Integer
For i = 1 To Len(s)
n = Val(Mid(s, i, 1))
a(n) = a(n) & n
Next i
SapChuSo = Join(a, "")
End Function

Vâng anh.Em hay không để ý dùng mảng để sắp xếp.Nếu về con số mà dùng để lọc trùng với xắp xếp có vẻ dùng mảng là tiện nhất.

 

[ptm0412]

Google Sheets lèo cái được.
Excel 365 mà có hàm tương tự thì làm tương tự.

View attachment 253312

Excel 2019, 365

View attachment 253323

Excel 365 .