Nhờ giúp đỡ hàm Vlookup nhiều giá trị có lọc trùng

[TgiaiDungLe]

Hiện tại, qua tìm hiểu trên mạng mình có tìm được đoạn code VBA để Vlookup nhiều giá trị như sau :
Function SingleCellExtract(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
'Updateby20150824
Dim I As Long
Dim xRet As String
For I = 1 To LookupRange.Columns(1).Cells.Count
If LookupRange.Cells(I, 1) = LookupValue Then
If xRet = "" Then
xRet = LookupRange.Cells(I, ColumnNumber) & Char
Else
xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
End If
End If
Next
SingleCellExtract = Left(xRet, Len(xRet) - 1)
End Function
Để sử dụng hàm SingleCellExtract thì bên dưới Excel sử dụng : = SingleCellExtract (D2, A2: B15,2, ",") vào ô cần Vlookup nhiều giá trị
Sau đó, tại ô Vlookup nhiều giá trị sẽ xuất hiện rất nhiều các giá trị tương tự như :

3201030166,3201030166,3201030166,3201030166,3201030166,3201030166,3201030166,3201030166,3201030166,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861

Tuy nhiên, vấn đề mình đang gặp phải là muốn lọc trùng các giá trị giống nhau (bỏ đi các dãy số giống nhau và chỉ giữ lại 1 giá trị). Và thay vì kết quả như ô bên trên thì KQ mình muốn sẽ là :

3201030166, 3201031861

Rất mong giúp đỡ mình để cải tiến đoạn code VBA này ạ !
Minh xin chân thành cảm ơn ạ.

 

[giaiphap]

Hiện tại, qua tìm hiểu trên mạng mình có tìm được đoạn code VBA để Vlookup nhiều giá trị như sau :
Function SingleCellExtract(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
'Updateby20150824
Dim I As Long
Dim xRet As String
For I = 1 To LookupRange.Columns(1).Cells.Count
If LookupRange.Cells(I, 1) = LookupValue Then
If xRet = "" Then
xRet = LookupRange.Cells(I, ColumnNumber) & Char
Else
xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
End If
End If
Next
SingleCellExtract = Left(xRet, Len(xRet) - 1)
End Function
Để sử dụng hàm SingleCellExtract thì bên dưới Excel sử dụng : = SingleCellExtract (D2, A2: B15,2, ",") vào ô cần Vlookup nhiều giá trị
Sau đó, tại ô Vlookup nhiều giá trị sẽ xuất hiện rất nhiều các giá trị tương tự như :

3201030166,3201030166,3201030166,3201030166,3201030166,3201030166,3201030166,3201030166,3201030166,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861,3201031861

Tuy nhiên, vấn đề mình đang gặp phải là muốn lọc trùng các giá trị giống nhau (bỏ đi các dãy số giống nhau và chỉ giữ lại 1 giá trị). Và thay vì kết quả như ô bên trên thì KQ mình muốn sẽ là :

3201030166, 3201031861

Rất mong cao nhân giúp đỡ mình để cải tiến đoạn code VBA này ạ !
Minh xin chân thành cảm ơn ạ.

Bạn up cái file mẫu đó lên đây để anh em dễ dàng Test hàm, chứ ngồi viết code xong lại phải tạo dữ liệu để test thì lâu quá.

 

[TgiaiDungLe]

Bạn up cái file mẫu đó lên đây để anh em dễ dàng Test hàm, chứ ngồi viết code xong lại phải tạo dữ liệu để test thì lâu quá.

Đây bạn ơi, xin lỗi mình quên đính kèm theo file
Thực sự mình lọc trùng theo kiểu "tay" và "truyền thống" mất rất nhiều thời gian nên hy vọng bạn giúp mình (

 

[giaiphap]

Đây bạn ơi, xin lỗi mình quên đính kèm theo file
Thực sự mình lọc trùng theo kiểu "tay" và "truyền thống" mất rất nhiều thời gian nên hy vọng bạn giúp mình (

Vậy nhớ chưa? Tui chưa thấy file.

 

[TgiaiDungLe]

Vậy nhớ chưa? Tui chưa thấy file.

Đây nha bro

Bài đã được tự động gộp: 3/3/20

Vậy nhớ chưa? Tui chưa thấy file.

Có gì nhờ bác hỗ trợ ạ

 

[VetMini]

Sao mà bây giờ thiên hạ hay dùng từ "cao nhơn" không biết ngượng miệng. Hồi xưa, từ này chỉ dùng để nịnh bợ, và vì có nghĩa nịnh bợ nên cũng được dùng để châm biếm.

Thực sự nếu hàm chạy tốt rồi thì chỉ cần viết thêm một cái hàm lọc ra:

Function LocTrungSCE(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
' lọc trùng kết quả của hàm SingleCellExtract
Dim a
Dim i As Integer, i2 As Integer
a = Split(SingleCellExtract(LookupValue, LookupRange, ColumnNumber, Char), ",")
For i = 0 to UBound(a)
For i2 = 0 to i-1
If a(i) = a(i2) Then ' có rồi
a(i) = ""
Exit For
End If
Next i2
Next i
LocTrungSCE = Replace(Application.Trim(Join(a, " ")), " ", ",")
End Function

Bình thường thì hàm có từ 3 parameters trở lên thì tôi chú thích. Nhưng cái đề bài này dỏm, không xứng đáng chú thích.

Đăng xong mới thấy thớt còn là dân tây bồi, sờ-hát-i-tê

 

[TgiaiDungLe]

Rất cảm ơn bác ạ

 

[HieuCD]

Sao mà bây giờ thiên hạ hay dùng từ "cao nhơn" không biết ngượng miệng. Hồi xưa, từ này chỉ dùng để nịnh bợ, và vì có nghĩa nịnh bợ nên cũng được dùng để châm biếm.

Thực sự nếu hàm chạy tốt rồi thì chỉ cần viết thêm một cái hàm lọc ra:

Function LocTrungSCE(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
' lọc trùng kết quả của hàm SingleCellExtract
Dim a
Dim i As Integer, i2 As Integer
a = Split(SingleCellExtract(LookupValue, LookupRange, ColumnNumber, Char), ",")
For i = 0 to UBound(a)
For i2 = 0 to i-1
If a(i) = a(i2) Then ' có rồi
a(i) = ""
Exit For
End If
Next i2
Next i
LocTrungSCE = Replace(Application.Trim(Join(a, " ")), " ", ",")
End Function

Bình thường thì hàm có từ 3 parameters trở lên thì tôi chú thích. Nhưng cái đề bài này dỏm, không xứng đáng chú thích.

Đăng xong mới thấy thớt còn là dân tây bồi, sờ-hát-i-tê

Nhớ có bài bạn dùng Replace() loại trùng rất hay

 

[VetMini]

Nhớ có bài bạn dùng Replace() loại trùng rất hay

Lâu ngày quên mất rồi. Để cố nhớ lại xem.
Lúc làm bài này, tôi chỉ cốt ý mách xảo thuật viết thêm một hàm để bổ sung hàm có sẵn.

 

[TgiaiDungLe]

Lâu ngày quên mất rồi. Để cố nhớ lại xem.
Lúc làm bài này, tôi chỉ cốt ý mách xảo thuật viết thêm một hàm để bổ sung hàm có sẵn.

Bác xem giúp mình thử với