Lọc giá trị trùng nhau ghi vào một ô dùng VBA (1 người xem)

[auora_vt09]

Chào cả nhà
Mình đang vướng một chỗ mà không biết làm sao,
mình có bảng thông tin,muốn lọc các giá trị trùng nhau và không trùng nhau( ứng với giá trị trùng nhau là một số thứ tự),sẽ ghi các số thứ tự đó vào trong 1 ô,xem hình ở dưới nè.Trong bảng đó mình đã gõ tay các giá trị trùng nhau vào ô" kết quả" giờ mình muốn viết bằng hàm VBA.giúp mình nhé

[TABLE="class: grid, width: 500"]
[TR]
[TD]stt[/TD]
[TD]giá trị[/TD]
[TD]kết quả[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]11[/TD]
[TD]1,2,6[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]11[/TD]
[TD]1,2,6[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]2[/TD]
[TD]3,7[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]4[/TD]
[TD]4,5[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]4[/TD]
[TD]4,5[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]11[/TD]
[TD]1,2,6[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]2[/TD]
[TD]3,7[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]5[/TD]
[TD]8[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

xin cảm ơn

 

[phihndhsp]

Chào cả nhà
Mình đang vướng một chỗ mà không biết làm sao,
mình có bảng thông tin,muốn lọc các giá trị trùng nhau và không trùng nhau( ứng với giá trị trùng nhau là một số thứ tự),sẽ ghi các số thứ tự đó vào trong 1 ô,xem hình ở dưới nè.Trong bảng đó mình đã gõ tay các giá trị trùng nhau vào ô" kết quả" giờ mình muốn viết bằng hàm VBA.giúp mình nhé

[TABLE="class: grid, width: 500"]
[TR]
[TD]stt[/TD]
[TD]giá trị[/TD]
[TD]kết quả[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]11[/TD]
[TD]1,2,6[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]11[/TD]
[TD]1,2,6[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]2[/TD]
[TD]3,7[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]4[/TD]
[TD]4,5[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]4[/TD]
[TD]4,5[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]11[/TD]
[TD]1,2,6[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]2[/TD]
[TD]3,7[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]5[/TD]
[TD]8[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

xin cảm ơn

Gởi bạn tham khảo nha, tôi viết hàm chứ không viết sub, code đơn giản thôi chả có bẫy lỗi bẫy liếc gì cả

 

[Hau151978]

Bài này nên dùng Sub, Function phức tạp hơn. Function có thể có hay không có tham số. Code mình không có tham số.

Function xxx() As String
    Dim Arr(), r As Range, x, s$, i&
    Set r = Application.Caller.Offset(, -1)
    x = r.Value
    Arr = Range(r.End(xlUp), r.End(xlDown)).Value
    For i = 2 To UBound(Arr)
        If Arr(i, 1) = x Then s = s & ", " & (i - 1)
    Next
    xxx = Right(s, Len(s) - 2)
End Function

 

[auora_vt09]

Cảm ơn các bác nhiều,bữa giờ bận quá,em không lên diễn đàn được,các bác nhiệt tình quá. ^^

 

[MrKhoa3108]

Mọi người ơi, cũng code đó mà e muốn chuyển các kết quả thành hàng ngang tương ứng từng ô được không. Ai biết chỉ em với