Filtering in one row

[qannas]

Hello,

i need help in this please

[TABLE="width: 500, align: left"]
<tbody>[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]name[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]type[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]Jack[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]iphone[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]Jack[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]android[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]John[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]iphone[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]John[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]android[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]Mousa[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]iphone[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]Mousa[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]android[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]Jeff[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]android[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]Hany[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]iphone[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

















I need to show the outcome like this:

[TABLE="width: 500"]
<tbody>[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]Jack[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]Iphone, android[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]Jeff[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]android[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 81"]
<tbody>[TR]
[TD="width: 81"]Hany [/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 107"]
<tbody>[TR]
[TD="width: 107"]iphone[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

Thanks.

 

[qannas]

No feedback!

 

[JoeMo]

Sub quannas()
'assumes starting data begin with a header in A1
' recast data start in D1
Dim Vin As Variant, S As String, c As Range, i As Long
Application.ScreenUpdating = False
Columns("D:E").ClearContents
Range("E1").Value = Range("B1").Value
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).AdvancedFilter xlFilterCopy, , Range("D1"), True
Vin = Range("A2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Value
For Each c In Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    For i = LBound(Vin, 1) To UBound(Vin, 1)
        If Vin(i, 1) = c.Value Then
            S = S & ", " & Vin(i, 2)
        End If
    Next i
    c.Offset(0, 1).Value = Mid(S, 3)
    S = ""
Next c
Columns("D:E").AutoFit
Application.ScreenUpdating = True
End Sub

 

[qannas]

Thanks Joe, it works!

 

[JoeMo]

Thanks Joe, it works!

You are welcome - thanks for the reply.