Bạn cần phải đếm xem có bao nhiêu giá trị lặp lại trong 2 range nào đó hoặc đếm xem có bao nhiêu giá trị lặp lại trong 2 mảng khác nhau. Bạn sẽ cần phải sử dụng đến đoạn code dưới đây để giải quyết vấn đề.
Function đếm trùng lặp cho 2 array:
Public Function DemTrungLap(Arr1 As Variant, Arr2 As Variant) As Long
Dim varElement As Variant
On Error Resume Next
For Each varElement In Arr1
'lMatch = 0
'lMatch = Application.Match(varElement, arr2, 0)
If Not IsError(Application.Match(varElement, Arr2, 0)) Then
DemTrungLap = DemTrungLap + 1
End If
Next varElement
On Error GoTo 0
End Function
Function đếm trùng lặp cho 2 range:
Public Function DemTrungLap(Arr1 As range, Arr2 As range) As Long
Dim varElement As range
On Error Resume Next
For Each varElement In Arr1
If Not IsError(Application.Match(varElement, Arr2, 0)) Then
DemTrungLap = DemTrungLap + 1
End If
Next varElement
On Error GoTo 0
End Function
?DienDan.Edu.Vn cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn. https://diendan.edu.vn/
?Các bạn tham khảo hướng dẫn tải file trên Quản Trị Excel tại đây: http://www.quantriexcel.info/2018/11/huong-dan-tai-file-tren-quan-tri-excel.html
DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.Cám ơn.
