Đánh dấu (tô màu.) dòng đầu tiên trong những dòng giống nhau !

[phucnguyen1993]

Em có file thống kê như hình ạ, hiện em muốn kết quả là những dòng trong cột SỐ HỢP ĐỒNG mà giống nhau thì chỉ tô màu dòng đầu tiên của những dữ liệu giống nhau. Thay vì tô màu thủ công nhờ anh/chị có phương pháp nào hay hơn không ạ?
Em xin cám ơn ạ

 

[tam888]

Em có file thống kê như hình ạ, hiện em muốn kết quả là những dòng trong cột SỐ HỢP ĐỒNG mà giống nhau thì chỉ tô màu dòng đầu tiên của những dữ liệu giống nhau. Thay vì tô màu thủ công nhờ anh/chị có phương pháp nào hay hơn không ạ?
Em xin cám ơn ạ

Nếu không giống nhau (tức là dữ liệu "số hợp đồng" chỉ có 1 dòng không trùng), thì sao? có tô màu không?

 

[phucnguyen1993]

Nếu không giống nhau (tức là dữ liệu "số hợp đồng" chỉ có 1 dòng không trùng), thì sao? có tô màu không?

dạ nếu chỉ có 1 dòng không trùng vẫn tô màu ạ!

 

[tam888]

dạ nếu chỉ có 1 dòng không trùng vẫn tô màu ạ!

Dùng conditional Formating như sau

- Để con trỏ ở A5 bắt đầu chọn toàn vùng bảng A572
- Home / Conditional Formating --> Manage rule / New rule /... use a formula to determine which cell to format
sử dụng với công thức
=COUNTIF($A$5:$A5,$A5)=1
- chọn màu thích hợp

 

[snow25]

Em có file thống kê như hình ạ, hiện em muốn kết quả là những dòng trong cột SỐ HỢP ĐỒNG mà giống nhau thì chỉ tô màu dòng đầu tiên của những dữ liệu giống nhau. Thay vì tô màu thủ công nhờ anh/chị có phương pháp nào hay hơn không ạ?
Em xin cám ơn ạ

Sub tomau()
Dim lr As Long, i As Long
With Sheet1
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    If lr < 5 Then MsgBox "khong co du lieu": Exit Sub
    .Range("A5:D" & lr).Interior.Pattern = xlNone
    For i = 4 To lr - 1
     If .Cells(i, 1) <> Cells(i + 1, 1) Then
        .Range("A" & i + 1).Resize(, 4).Interior.Color = 65535
     End If
    Next i
End With
End Sub

Đây bạn xem code.

 

[phucnguyen1993]

Dùng conditional Formating như sau

- Để con trỏ ở A5 bắt đầu chọn toàn vùng bảng A572
- Home / Conditional Formating sử dụng với công thức
=COUNTIF($A$5:$A5,$A5)=1
- chọn màu thích hợp

thanks bác nhiều, đúng ý mình !!

 

[kh0jy3n]

Em có file thống kê như hình ạ, hiện em muốn kết quả là những dòng trong cột SỐ HỢP ĐỒNG mà giống nhau thì chỉ tô màu dòng đầu tiên của những dữ liệu giống nhau. Thay vì tô màu thủ công nhờ anh/chị có phương pháp nào hay hơn không ạ?
Em xin cám ơn ạ

Gửi Bạn
bạn xem đúng ý mình chưa nhé .
Thân.

 

[phucnguyen1993]

Sub tomau()
Dim lr As Long, i As Long
With Sheet1
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    If lr < 5 Then MsgBox "khong co du lieu": Exit Sub
    .Range("A5:D" & lr).Interior.Pattern = xlNone
    For i = 4 To lr - 1
     If .Cells(i, 1) <> Cells(i + 1, 1) Then
        .Range("A" & i + 1).Resize(, 4).Interior.Color = 65535
     End If
    Next i
End With
End Sub

Đây bạn xem code.

tks bạn ,hì

Bài đã được tự động gộp: 17/12/18

Gửi Bạn
bạn xem đúng ý mình chưa nhé .
Thân.

không bác ạ, condition theo cột A, bác tam888 với bác snow giúp mình rồi ạ, Cám ơn bác