DUONGKHALY
Thành viên mới
- Tham gia
- 24/6/11
- Bài viết
- 44
- Được thích
- 8
Nhờ các bác sắp xếp dữ liệu lại giùm; có file đính kèm ạ.
Sắp xếp dữ liệu lại (3 người xem)
- Thread starter DUONGKHALY
- Ngày gửi
Người dùng đang xem chủ đề này
Thành viên mới
hoangtuan.net
Thành viên thường trực
- Tham gia
- 4/11/21
- Bài viết
- 250
- Được thích
- 174
- Giới tính
- Nam
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
Thành viên mới
- Tham gia
- 24/6/11
- Bài viết
- 44
- Được thích
- 8
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.
Chỉnh sửa lần cuối bởi điều hành viên:
- Tham gia
- 6/8/08
- Bài viết
- 1,815
- Được thích
- 1,162
- Giới tính
- Nam
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
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
