Em muốn sắp xếp thứ tự danh sách này theo năm sinh thì làm sao vậy mấy anh... Đang tổng hợp danh sách, nhưng mà khó quá, mong các pro giúp đỡ nha ! File đính kèm phía dưới...thank mọi người nhiều![]()
Sub sapxep()
Dim dl(), i As Long, tam
With Sheet1
dl = .Range(.[a12], .[a65536].End(3).Offset(10, 12)).Value
For i = 1 To UBound(dl) - 5
If Val(dl(i, 1)) > 0 Then
tam = Year(dl(i + 1, 2))
dl(i, 13) = tam
dl(i + 1, 13) = tam
dl(i + 2, 13) = tam
dl(i + 3, 13) = tam
dl(i + 4, 13) = tam
End If
Next
.[M11] = "TAM"
.[a12].Resize(i - 1, 13) = dl
.Range(.[a11], .[M65536].End(3)).Sort .[M11], Header:=1
.[M11:M10000].Clear
End With
End Sub
Vào google gõ vào " làm thế nào để enable macro" và làm theo. Cần 5 phút thôiCó ai giúp minh về phần VBA được không ? Mình mù tịt mấy cái đó...hic hic
Thuật toán anh quanghai sử dụng là nhặt năm sinh tại cột B gán sang cột M và sort dữ liệu theo cột M thôi.Có ai giúp minh về phần VBA được không ? Mình mù tịt mấy cái đó...hic hic
Có ai giúp minh về phần VBA được không ? Mình mù tịt mấy cái đó...hic hic