Lọc theo màu trong cùng 1 sheet (1 người xem)

[DOOSANTHANHCONG]

Em có 1 file excel muốn lọc sort cell by color riêng ra từng màu và sắp xếp theo thứ tự nhưng không biết làm thế nào , mọi người bảo em nhé!
Thanks!!!

 

[SA_DQ]

Bạn xài macro này

Sub MyColor()
 Dim eRw As Long
 Dim Cls As Range, Rng As Range
 
 eRw = [A65500].End(xlUp).Row
 Set Rng = Range([e3], Cells(eRw, "E"))
 [E2].Value = "ColorIndex"
 For Each Cls In Rng
    Cls.Value = Cls.Interior.ColorIndex
 Next Cls
End Sub

Nhất thiết fải bỏ trộn ở cột 'B' mới làm gì tiếp thì làm.

 

[DOOSANTHANHCONG]

Bạn ơi, bạn có thể nói rõ hơn được không?
mình vào chỗ nào để đánh macro này,
và có cách nào có thể làm nhanh hơn không bảo mình với,
nếu cách này thì lọc hơi lâu.
Đã chỉ thì chỉ tới cùng nha! hì hì

 

[viehoai]

Bạn ơi, bạn có thể nói rõ hơn được không?
mình vào chỗ nào để đánh macro này,
và có cách nào có thể làm nhanh hơn không bảo mình với,
nếu cách này thì lọc hơi lâu.
Đã chỉ thì chỉ tới cùng nha! hì hì

Mình đưa code của Bác Sa_DQ vào file cho bạn đây. Nhấn Alt+F11 để biết cái gì ở trong đó nhé