Gửi bởi
rsvnm
Kính thưa các anh chị em,
Chủ đề tìm tên trùng lặp tôi đã từng xin trợ giúp cách đây vài năm, nhưng mà vẫn chưa giải quyết được triệt để vấn đề
Vấn đề tôi cần trợ giúp như sau:
Tôi có một file excel
Cột 1: họ hoặc tên của khách
Cột 2 : Viết đầy đủ họ và tên
Cột 3: Tên công ty của khách
Cột 4: Phần giải thích
Cột 5: Số hiệu booking khách sạn đã xác nhận với khách hàng, mỗi khách hàng chỉ có một số hiệu,
Như vậy tôi cần phát hiện ra những khách ở cột thứ 2 chi cần trùng nhau đến 80% là tôi cần phai xem lại , nếu trùng tên khách mà trùng số hiệu thì không sao, nếu trùng tên khách mà không trung số hiệu thi tôi cần phát hiện ra, Những phát hiện của macro thi co thể trả kết quả về cột thứ 6
Mong các anh chị em giúp đỡ
con số 80% không biết là căn cứ vào cái gì?
đoạn code sau, thấy cái nào ma má (hơi giống giống nó, nhưng chuổi dài hơn) là nó quất thôi
Mã:
Sub tim()
Dim ng As Variant, kq(), i, j As Long
ng = [a5].Resize([a10000].End(3).Row - 4, 4).Value
ReDim kq(1 To UBound(ng), 1 To 1)
For i = 1 To UBound(ng)
For j = i + 1 To UBound(ng)
If IsEmpty(kq(i, 1)) Then
If ng(i, 2) Like "*" & ng(j, 2) & "*" Then
If ng(i, 4) <> ng(j, 4) Then
kq(i, 1) = "trung dong " & j + 4
End If
End If
End If
Next j
Next i
[F5:F10000].Clear
[f5].Resize(UBound(ng)).Value = kq
End Sub
kết quả là 3
dòng 52-53
125-126
235-236
Trả lời kèm Trích dẫn