Bayilerin karşısındaki her bir hücreye o bayideki ürünü yazma

[kgc400]

Merhaba,

Örneğim ektedir. Yardımlarınız için şimdiden teşekkürler.

kgc

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub test()
Dim a, i As Long, n As Long
a = Range("a2:b" & [a65536].End(3).Row).Value
With CreateObject("Scripting.Dictionary")
.CompareMode = 1
For i = 1 To UBound(a, 1)
If Not .exists(a(i, 2)) Then
n = n + 1
a(n, 1) = a(i, 1)
a(n, 2) = a(i, 2)
.Item(a(i, 2)) = n
Else
a(.Item(a(i, 2)), 1) = a(.Item(a(i, 2)), 1) & ", " & a(i, 1)
End If
Next
End With
Range("I2:J10").ClearContents
Range("I2").Resize(n, 2).Value = a
End Sub