xin code cho bảng tính

[haiha1102]

Mình loay hoay mãi mà không viết được lệnh trong Macro, mình mới tìm hiểu Mảco thui mà, nhờ các bạn chỉ giáo giúp mình.
Mình có một sheet vài nghìn dòng bao gồm các trường :
NAME, DIA CHI,SO DIEN THOAI, MA CA NHAN, MA MUA HANG
Do các khách hàng được tập hợp từ nhiều nguồn nên sự trùng lặp là rất nhiều, khi trao thưởng cho khách hàng mình cần đánh dấu những khách hàng trùng lặp số điên thoại.
Từ danh sách tổng này mình sort theo SO DIEN THOAI để sắp xếp các số điện thoại theo thứ tự và đương nhiên các số điện thoại giống nhau sẽ nằm ở các hàng liên tiếp.
Miình muốn viết một Macro có thể giúp so sánh các hàng liên tiếp trong một collum, nếu có các giá trị giống nhau thì sẽ bôi đỏ(đánh dấu) giá trị đó để tìm ra những giá trị giống nhau.Bạn nào biết xin giúp mình.
Very thanks.

 

[nguyentuhp]

Nếu bạn sử dụng Exel 2007 thì có thể làm theo các cách sau:
1. copy dữ liệu sang sheet khác và Sử dụng chức năng Remove Duplicate
2. Sử dụng chức năng định dạng theo điều kiện -> đánh dầu các dữ liệu giống nhau

Nếu Version <= Excel 2003 bạn có thể tham khảo code của file đính kèm

Chúc thành công!

 

[ChanhTQ@]

Bạn kiểm lại xem sao?!

Option Explicit
Dim ColorIndex As Byte
Sub ColorDoublicate()
 Dim lRw As Long, Zz As Long
 Dim Clls As Range, cRng As Range
 lRw = [b65500].End(xlUp).Row
 ColorIndex = 33:   Application.ScreenUpdating = False
 Range("D2:D" & lRw).Interior.ColorIndex = 2
 For Each Clls In Range("D2:D" & lRw - 1)
    With Clls
        If .Value = .Offset(1).Value Then
            Set cRng = Clls '.Resize(2)
            Zz = 0
            Do
                Zz = Zz + 1
                If .Offset(Zz).Value <> .Value Then
                    cRng.Interior.ColorIndex = ColorIndex
                    ColorIndex = ColorIndex + 1
                    If ColorIndex > 41 Then ColorIndex = 33
                    Set cRng = Nothing:     Exit Do
                Else
                    Set cRng = Union(cRng, .Offset(Zz))
                End If
            Loop
        End If
    End With
 Next Clls
End Sub

Nếu chưa vừa lòng thì phát biểu ý kiến, nha!

 

[haiha1102]

Mình đã test code

Dear ChanhTQ,
Thanks ChanhTQ nhiều.
Mình đã test nhưng bị báo lỗi cú pháp bạn à, không hiểu là nó nằm ở chỗ nào ấy nhỉ?

 

[ChanhTQ@]

File mình đã thử rồi mới đưa lên mà!

Không thể báo lỗi cú pháp được!

Nhờ MOD/SMOD xóa giúp bài này, một khi tác giả Topic đã đọc. Xin Cảm ơn nhiều!