Bôi màu ô cuối cùng trong 1 loạt những ô có giá trị giống nhau!

[star84]

Mọi người giúp mình 1 việc được không ạ,mình muôn Bôi tự động màu ô cuối cùng trong 1 loạt những ô có giá trị giống nhau!có cách nào không vây?cám ơn mọi người nhiều ...

 

[ndu96081631]

Mọi người giúp mình 1 việc được không ạ,mình muôn Bôi tự động màu ô cuối cùng trong 1 loạt những ô có giá trị giống nhau!có cách nào không vây?cám ơn mọi người nhiều ...

Dùng Conditional Formating kết hợp với hàm COUNTIF

 

[phulien1902]

Mọi người giúp mình 1 việc được không ạ,mình muôn Bôi tự động màu ô cuối cùng trong 1 loạt những ô có giá trị giống nhau!có cách nào không vây?cám ơn mọi người nhiều ...

Không có File demo thì biết trả lời với bạn sao đây?

 

[nguyenthuy13388]

Dùng Conditional Formating kết hợp với hàm COUNTIF

với những câu hỏi chung chung, cần nhận dc câu trả lời như thế này

 

[ndu96081631]

với những câu hỏi chung chung, cần nhận dc câu trả lời như thế này

Tuy cũng chỉ là câu trả lời chung chung nhưng không phải tôi trả lời cho có. Tôi cũng mường tượng ra bài toán mới có được giải pháp

 

[huuthang_bd]

Mọi người giúp mình 1 việc được không ạ,mình muôn Bôi tự động màu ô cuối cùng trong 1 loạt những ô có giá trị giống nhau!có cách nào không vây?cám ơn mọi người nhiều ...

Conditional Formating với điều kiện là bằng ô liền trên và khác ô liền dưới.

 

[Lê Hồng Minh83]

Conditional Formating với điều kiện là bằng ô liền trên và khác ô liền dưới.

Cũng tùy, nếu dữ liệu được sort thì chơi được, còn không thì phải thấy mặt mũi nó sao đã. Sử dụng countif như bài #2 chắc chắn hơn

 

[Phan Thế Hiệp]

Mọi người giúp mình 1 việc được không ạ,mình muôn Bôi tự động màu ô cuối cùng trong 1 loạt những ô có giá trị giống nhau!có cách nào không vây?cám ơn mọi người nhiều ...

Hình như là:
Trích xem hàng nào là hàng cuối cùng, của cùng 1 giá trị bất kỳ trong cột A, ví dụ: {aa;aa;aa;bb;cc;aa;bb;aa;aa;dd}
Chắc phải dùng lookup(2,1/..., Dòng).

Chúc anh em ngày vui.

 

[Quang_Hải]

Mọi người giúp mình 1 việc được không ạ,mình muôn Bôi tự động màu ô cuối cùng trong 1 loạt những ô có giá trị giống nhau!có cách nào không vây?cám ơn mọi người nhiều ...

Nếu biết xài VBA thì thử đoạn code này.
Cách sử dụng, bôi đen vùng cần kiểm tra và chạy code

Sub ToMauDongCuoiDuLieuTrung()
Dim sArr(), i As Long, Dic As Object, R As Long, C As Long
If Selection.Count = 1 Then Exit Sub
Set Dic = CreateObject("scripting.dictionary")
Selection.Interior.ColorIndex = xlNone
sArr = Selection.Value
R = Selection.Row: C = Selection.Column
For i = 1 To UBound(sArr)
   If sArr(i, 1) <> Empty Then
      If Not Dic.exists(sArr(i, 1)) Then
         Dic.Add sArr(i, 1), Empty
      Else
         Dic(sArr(i, 1)) = i - 1 + R
      End If
   End If
Next
For i = UBound(sArr) To LBound(sArr) Step -1
   If Dic.exists(sArr(i, 1)) Then
      If Dic.Item(sArr(i, 1)) > 0 Then
         Cells(Dic.Item(sArr(i, 1)), C).Interior.ColorIndex = 3
         Dic.Remove (sArr(i, 1))
      End If
   End If
Next
End Sub

 

[star84]

Nếu biết xài VBA thì thử đoạn code này.
Cách sử dụng, bôi đen vùng cần kiểm tra và chạy code

Sub ToMauDongCuoiDuLieuTrung()
Dim sArr(), i As Long, Dic As Object, R As Long, C As Long
If Selection.Count = 1 Then Exit Sub
Set Dic = CreateObject("scripting.dictionary")
Selection.Interior.ColorIndex = xlNone
sArr = Selection.Value
R = Selection.Row: C = Selection.Column
For i = 1 To UBound(sArr)
   If sArr(i, 1) <> Empty Then
      If Not Dic.exists(sArr(i, 1)) Then
         Dic.Add sArr(i, 1), Empty
      Else
         Dic(sArr(i, 1)) = i - 1 + R
      End If
   End If
Next
For i = UBound(sArr) To LBound(sArr) Step -1
   If Dic.exists(sArr(i, 1)) Then
      If Dic.Item(sArr(i, 1)) > 0 Then
         Cells(Dic.Item(sArr(i, 1)), C).Interior.ColorIndex = 3
         Dic.Remove (sArr(i, 1))
      End If
   End If
Next
End Sub

cám ơn bạn nhiều nhé