Tô màu các dòng giống nhau (1 người xem)

[lhthai]

Nhờ các Anh Chi viết code tô màu các dòng giống nhau
Các Anh chi xem file dính kèm.

 

[doatmenhhon]

Bạn xem file này đã đúng ý bạn chưa? Ấn nút "run" để trải nghiệm

 

[lhthai]

Bạn xem file này đã đúng ý bạn chưa? Ấn nút "run" để trải nghiệm

Cám ơn bạn nha
Mình muốn code chạy trực tiếp luôn không cần cột V

Public Sub Tomau()
Dim Arr(), i As Long, Dic As Object, Tem As String
   Arr = Range("V6", [V65536].End(xlUp))
   Set Dic = CreateObject("scripting.dictionary")
   
      For i = 1 To UBound(Arr)
      Dic(Arr(i, 1)) = Dic(Arr(i, 1)) + 1
   Next
   For i = 1 To UBound(Arr)
      If Dic(Arr(i, 1)) > 1 Then
         Cells(i + 5, 22).Offset(, -20).Resize(, 5).Interior.ColorIndex = 6
      End If
    Next
End Sub

 

[Trần Văn Bình]

Đã thế bạn tạo công thức cho cột V:V tự động ghép dữ liệu để không cầm làm bằng tay luôn thì tốt

 

[doatmenhhon]

Mình chỉnh lại tự động ghép cột V ^^

 

[ndu96081631]

Mình chỉnh lại tự động ghép cột V ^^

Dùng COUNTIF e rằng không ổn rồi!
- Trong trường hợp nếu người ta muốn phân biệt HOA-thường thì bạn tính sao?
- Nếu dữ liệu dạng số (như hình bên dưới) thì sẽ có lúc COUNTIF tính sai



















------------------------------------

Nhờ các Anh Chi viết code tô màu các dòng giống nhau
Các Anh chi xem file dính kèm.

Bạn nên đưa dữ liệu thật lên đây để khỏi mất công phải làm đi làm lại nhiều lần

 

[doatmenhhon]

Với chữ hoa và thường mình vẫn chưa tìm hiểu được, liệu có thể chuyển mã từ chữ sang dạng số không nhỉ kiểu như chrW từ số sang chữ ? Còn với dữ liệu dạng số thì vẫn có cách khắc phục