Tìm dữ liệu trùng trong nhiều cột khác nhau! (1 người xem)

[nghiahuu]

Xin nhờ các bạn chỉ giúp dùm mình! Tại dữ liệu quá nhiều ko thể kiểm soát được số liệu trùng được! Cám ơn các bạn nhiều! (có kèm theo file đính kèm)

 

[hoangexcell]

copy các cặp (2 cột) đó về chung 2 cột thôi và dùng pivotable ..

tất nhiên có nhiều cách cho nhu cầu của bạn tùy theo bạn muốn gì gì nữa. xem 1 cách như file kèm.

Nhìn theo số mét chỗ nào lớn hơn 1 là biết trùng rồi

 

[nghiahuu]

Mình muốn tô màu lên những số hiệu cọc nào bị trùng được không bạn! thanks

 

[Quang_Hải]

Xin nhờ các bạn chỉ giúp dùm mình! Tại dữ liệu quá nhiều ko thể kiểm soát được số liệu trùng được! Cám ơn các bạn nhiều! (có kèm theo file đính kèm)

Xem file đính kèm. VBA thì cái quái gì cũng xơi được. Ráng tìm cách Enable Macro lên nhé, nếu không thì ... tèo

Sub tomau()
Dim dl(), i As Long, j As Long, d1 As Object, d2 As Object, tam(), dk As String, x As Byte
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Sheet1.[D5:K1000].Interior.ColorIndex = xlNone
dl = Sheet1.Range(Sheet1.[D5], Sheet1.[D65536].End(3)).Resize(, 8).Value
   For i = 1 To UBound(dl, 2) Step 3
      For j = 1 To UBound(dl)
         dk = dl(j, i) & dl(j, i + 1)
         If dk <> "" Then
            If Not d1.exists(dk) Then
               d1.Add dk, ""
            Else
               If Not d2.exists(dk) Then d2.Add dk, ""
            End If
         End If
      Next
   Next
   tam = d2.keys
For x = 0 To UBound(tam)
   For i = 1 To UBound(dl, 2) Step 3
      For j = 1 To UBound(dl)
         dk = dl(j, i) & dl(j, i + 1)
         If dk = tam(x) Then
            Cells(j + 4, i + 3).Interior.ColorIndex = 3
            Cells(j + 4, i + 4).Interior.ColorIndex = 3
         End If
      Next
   Next
Next
End Sub

 

[nghiahuu]

cám ơn anh nhiều! giờ e muốn tìm số hiệu trùng chỉ trên đoạn bằng 1 và đoạn bằng 2 thì sửa lại code sao anh! và khi in ra e ko muốn thấy nut button ToMau. Cám ơn a!

 

[Quang_Hải]

cám ơn anh nhiều! giờ e muốn tìm số hiệu trùng chỉ trên đoạn bằng 1 và đoạn bằng 2 thì sửa lại code sao anh! và khi in ra e ko muốn thấy nut button ToMau. Cám ơn a!

Muốn in ra không có thấy cái nút thì bấm chuột phải lên cái nút, chọn Format Control, chọn bỏ Print Object sẽ được.
Còn việc thay đổi cách tìm giá trị trùng thì mình không sửa lai code đâu vì lúc đầu bạn không nói, đợi viết code xong thì thay đổi.

 

[nghiahuu]

Vậy phải viết lại từ đâu hả a! uh! nếu dậy thôi, làm phiền a hoài! hehe! cám ơn a!

 

[nghiahuu]

Anh ơi hình như a viết code cho tới dòng 1000 (D5:K1000). nhưng công trình e tới 2000 cọc lận! a chỉnh code lại dùm e cái!cám ơn a trước nhe!