Sắp xếp dữ liệu lại

[DUONGKHALY]

Nhờ các bác sắp xếp dữ liệu lại giùm; có file đính kèm ạ.

 

[hoangtuan.net]

Nhờ các bác sắp xếp dữ liệu lại giùm; có file đính kèm ạ.

Em đang dùng Excel 365 sử dụng hàm sau thì có thể sắp xếp như sau, bác có thể tham khảo:
I9 =SORT(VALUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(";";;H9:H14);";")));1;1)

 

[DUONGKHALY]

Em đang dùng Excel 365 sử dụng hàm sau thì có thể sắp xếp như sau, bác có thể tham khảo:
I9 =SORT(VALUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(";";;H9:H14);";")));1;1)
View attachment 299670

Cảm ơn bạn nhiều; bài của mình hỏi giùm đứa em; nhưng có cách khác rồi bạn; cảm ơn bạn nhiều! Chúc bạn luôn vui khoẻ, thành công trong công việc và có nhiều công thức hay nhé bạn.

 

[cantl]

Option Explicit
Sub zzz()
Dim VungCuBiXoa
Set VungCuBiXoa = Range([L9].CurrentRegion.Offset(1, 0), [L9].CurrentRegion.End(xlDown))
VungCuBiXoa.ClearContents
Dim OTam, ChuoiNoi$, ChuoiRay
For Each OTam In [H9:H14]
If Not OTam = vbNullString Then ChuoiNoi = ChuoiNoi & ";" & OTam
Next
ChuoiRay = Split(Mid(ChuoiNoi, 2, Len(ChuoiNoi)), ";")
[L9].Resize(UBound(ChuoiRay) + 1, 1).Value = Application.Transpose(ChuoiRay)
[L9].CurrentRegion.Sort key1:=[L9], order1:=xlAscending, Header:=xlYes
End Sub