Tô màu các Hàng (Row) có nội dung trùng nhau liền kề khi sắp xếp dữ liệu

[thaibinhdo1994]

Kính gửi các anh chị thành viên và Ban quản trị Diễn đàn,
Em đang có một file báo cáo tổng hợp cần chỉnh lại cách trình bày cho bớt rối mắt, mong anh chị giúp đỡ.

File báo cáo theo dõi nguồn vốn sửa chữa được cấp, kéo dài qua nhiều năm
+ Khi Sort (A-Z) theo Mã Công trình (Cột 9) [Kết quả mang muốn như Sheet: Sort cột (9), Pivot cột (2)]
=> Tên Công trình (Cột 2) chỉ hiển thị 1 dòng đầu tiên, tự bôi màu (trắng) các dòng bên dưới
+ Khi Sort (A-Z) theo năm Sử dụng vốn (Cột 2) [Kết quả mang muốn như Sheet: Sort cột (2)]
=> Tên Công trình (Cột 2) hiển thị đầy đủ (vì không có tên công trình nào giống nhau giữa các dòng liên tiếp)

Anh chị có ý kiến về sửa đổi cách trình bày dữ liệu, hàm, code xin giúp em với ạ!
Xin cảm ơn các anh chị và Ban quản trị!

 

[bebo021999]

Sub boimau()
Dim i&
For i = 9 To Cells(Rows.Count, "C").End(xlUp).Row
    If Cells(i, "C").Value = Cells(i - 1, "C").Value Then Cells(i, "B").Resize(1, 2).Font.Color = vbWhite
Next
End Sub

 

[thaibinhdo1994]

Sub boimau()
Dim i&
For i = 9 To Cells(Rows.Count, "C").End(xlUp).Row
    If Cells(i, "C").Value = Cells(i - 1, "C").Value Then Cells(i, "B").Resize(1, 2).Font.Color = vbWhite
Next
End Sub

Em cảm ơn anh bebo!
Nhưng kết quả không như ý ạ, em đã chỉnh sửa lại câu hỏi và gửi lại file,
Xin anh xem lại giúp em!
Em cảm ơn nhiều!