Sắp xếp dữ liệu trong bảng tính

[dzung.esp]

Chào mọi người trên GPE

Hiện em đang có một bảng tính (như file excel đính kèm) . Mong mọi người sắp xếp giúp em dữ liệu ở cột J theo ngày tháng tăng dần với ạ. Em xin cảm ơn.

 

[phulien1902]

Chào mọi người trên GPE

Hiện em đang có một bảng tính (như file excel đính kèm) . Mong mọi người sắp xếp giúp em dữ liệu ở cột J theo ngày tháng tăng dần với ạ. Em xin cảm ơn.

Bạn kiểm tra nhé:

Sub abc()
    Dim LR As Long, i As Long
    LR = Range("A" & Rows.Count).End(3).Row
    For i = 1 To LR
        Range("L" & i) = DateSerial(Split(Range("j" & i), " ")(5), Split(Range("j" & i), " ")(3), Split(Range("j" & i), " ")(1))
    Next i
    Columns("A:L").Sort [L1], 1
End Sub