Gửi Hoàng Hoang Choco, đây là file của mình nhưng mình đã cắt bớt dữ liệu đi do tính bảo mật, mong bạn thông cảm. https://facebook.com/569100319856001_962013250564704
mình gửi lại bạn file trong hộp tin nhắn bạn check đã đúng ý chưa nhé, nếu nhiều mục cần hightlight có thể màu sắc xen lẫn nhau nhìn hơi rối mắt
Mình chỉ cần hight 1 màu xanh dương và trắng liên tiếp giống trong hình ảnh mình post thui ấy, có được không bạn nhỉ?
bạn tạo cột phụ , ví dụ trong file J8=MOD(IF(ROW()=2,0,IF(B8=B7,J7, J7+1)), 2) (với ô J7=0), xong tạo rule hightlight trong CF
mình sẽ thử
Thử đoạn code sau sẽ ngắn hơn nhé: Sub Highlight_Duplicate() Dim status As Boolean Dim lr As Integer, i As Integer, j As Integer lr = Sheets("Demo").Range("B" & Rows.Count).End(xlUp).Row Range("A8:J" & lr).Interior.Pattern = xlNone i = 8 Do While i <= lr j = i + 1 Do While Range("B" & i).Value = Range("B" & j).Value j = j + 1 Loop status = Not status If status = True Then Range("A" & i & ":J" & j - 1).Interior.Color = 15773696 i = j Loop End Sub
Kết quả
thank bro
Hải Hờ Hững