Các Anh Các Chị Giúp Đỡ Lọc hộ em dữ liệu tên khách hàng trùng nhau (1 người xem)

[conlocmautim45]

Em đang Rất cần anh chị giúp đỡ về lọc dữ liệu trùng.
em có nhiều khách hàng quá mà hiện giờ em không biết làm thế nào để biết tên khách hàng đó đã có hay chưa em sợ 1 khách hàng có tên hai lần vì vậy em Đang rất cần các anh chị cứu em em với bảng danh sách khách hàng trong file http://www.mediafire.com/?oec2maczbdu4x43 Mong được các anh chị giúp đỡ. nếu có thể đẩy qua mail cho em với mail của em là phongsla@gmail.com cảm ơn các anh chị trước

 

[tvxdgt]

Bạn dùng hàm countif như thế là cũng được mà

=COUNTIF($C$12:$C$144,C12)<=1

nếu trường hợp nào mà false thì dòng đó có khách hàng trùng tên và sử dụng Find để tìm kiếm khách hàng trùng đó ở những vị trí nào.

 

[conlocmautim45]

Bạn dùng hàm countif như thế là cũng được mà

=COUNTIF($C$12:$C$144,C12)<=1

nếu trường hợp nào mà false thì dòng đó có khách hàng trùng tên và sử dụng Find để tìm kiếm khách hàng trùng đó ở những vị trí nào.

Nhưng không phân biệt được chữ hoa và chữ thường cùng 1 khách hàng nhưng viết hoa và viết thường thì vẫn báo là ko trùng nhau nhưng thực tế thì vẫn trùng nhău

 

[tvxdgt]

Hoặc thêm một cách nữa là dùng đoạn code sau

Sub Kiemtra()
Dim i As Integer
For i = 6 To 600
If Cells(i, 15) = "S" Then
prompt = "KHACH HANG NHAP TRUNG"
MsgBox (prompt)
Cells(i, 3).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
End If
Next
End Sub

Những khách hàng nào trùng tên thì sẽ tô màu vàng.

 

[conlocmautim45]

Hoặc thêm một cách nữa là dùng đoạn code sau

Sub Kiemtra()
Dim i As Integer
For i = 6 To 600
If Cells(i, 15) = "S" Then
prompt = "KHACH HANG NHAP TRUNG"
MsgBox (prompt)
Cells(i, 3).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
End If
Next
End Sub

Những khách hàng nào trùng tên thì sẽ tô màu vàng.

Nếu làm theo cách này của bạn thì file đó hiện chữ linh tinh ko đọc được

 

[Ba Tê]

Nếu làm theo cách này của bạn thì file đó hiện chữ linh tinh ko đọc được

Làm vầy đi, nếu đã nhập trùng phía trên rồi thì tìm dòng có tô màu trong cột Doanh nghiệp xóa đi, nếu mới nhập mà bị trùng thì sẽ báo bằng màu cho ta biết.

 

[tvxdgt]

Nếu làm theo cách này của bạn thì file đó hiện chữ linh tinh ko đọc được

File đó có gì mà hiện chử linh tinh, khi click vào button kiểm tra thì nó xuất hiện hộp thoại báo " KHACH HANG NHAP TRUNG" tức là Khách hàng nhập trùng và tô màu vàng cho khách hàng nhập trùng chứ có gì mà hiện chử linh tinh đâu bạn.

 

[conlocmautim45]

File đó có gì mà hiện chử linh tinh, khi click vào button kiểm tra thì nó xuất hiện hộp thoại báo " KHACH HANG NHAP TRUNG" tức là Khách hàng nhập trùng và tô màu vàng cho khách hàng nhập trùng chứ có gì mà hiện chử linh tinh đâu bạn.

Đươc rồi bạn ơi.
Bạn cho mình hởi chút bạn có thể hướng dẫn mình làm như bạn được không

 

[bebo021999]

Dùng điều kiện này trong Conditional formatting của ô C12,áp dụng cho các ô từ đầu bảng đến ô kế cuối, không phân biệt chữ hoa hay chữ thường:

=ISERROR(MATCH(UPPER(C12),UPPER(C13:$C$148),0))=FALSE

Delete hết các ô bôi đỏ là được.

 

[Locdulieu]

Em có hình 3 cột có vị trí cell chữ đậm, em muốn viết code xóa các dòng không có chữ màu tím hoài không được,Anh Bo xem giúp sửa cái code này dùm em nhé.....
Cú pháp em làm như sau.
Chọn vùng từ cột E đến cột G i=6 đến hết vùng chọn
Nếu cells chọn tô đậm thì i sẽ chạy đến dòng kế tiếp
Nếu cells không tô đậm thì xóa hàng đi
Em đã thử với dữ liệu là 1 cột có chữ đậm thôi thì ok
Mà nếu có 3 cột có chữ tô đậm thì làm không được
Code nếu chỉ xóa cho 1 cột có tô đậm chạy ok như sau:
Sub ShortData()
Dim all As Range
N = 6
Set all = Range(Cells(N, "E"), Cells(N, "G"))
all.Select
'Cells(N, "E").Select'

'Cells(N, "F").Select

Do Until Selection.Value = ""
If Selection.Font.Bold Then
N = N + 1
'Cells(N, "E").Select
'Cells(N, "F").Select

Else
Rows(N).Delete 'Kiem tra lai, tai sao delete nay lai giu dc format cua cell, con entridelete bi xoa?
End If
Loop
End Sub
Em sửa lại cho 3 cột đều có chữ đậm thì code báo lỗi hoái....
AC rành về VBA cho em giải pháp nhé....xin chân thành cảm ơn...
Cảm ơn AC thật nhiều

 

[Locdulieu]

Em làm được code chạy mà vẫn không hiểu tại sao...
AC giải thích dùm em chỗ này nhé...
Sub To_mau_nen()
With Sheet2.UsedRange
For i = .Rows.Count To 6 Step -1
If Cells(i, 5).Font.Bold Or Cells(i, 6).Font.Bold Or Cells(i, 7).Font.Bold Then
i = i
Else
Rows(i).Delete

End If
Next
End With
End Sub
Dòng chữ màu xanh khi điều kiện chọn thỏa mãn là chữ tô đậm thì ---> giữ lại không xóa (mà ko biết dùng lệnh gì)
còn ko thỏa mãn đều kiện thì xóa là Ok rùi...
AC giải thích giúp em chỗ này nhé...Xin cảm ơn thật nhiều
Em gửi file lên ...