Rnd() yetersiz kaldı

[honestman]

Merhaba,

Aşağıdaki gibi A ve B sütunundaki verileri nasıl istediğim biçime dönüştürebilirim? Random fonksiyonu yetersiz kaldı. Teşekkürler.

 

[PLİNT]

Merhaba
Şöyle işinize yararmı?
http://s3.dosya.tc/server10/3fsitk/Kitap1.zip.html

Private Sub CommandButton1_Click()
x = Cells(Rows.Count, 1).End(3).Row
For a = x To 2 Step -1
For Each b In Range("A2:A" & x)
If Cells(a, 1).Value = b.Value And a <> b.Row Then
  'Cells(b.Row, Cells(b.Row, Columns.Count).End(xlToLeft).Column + 1) = Cells(a, 2)
Cells(a, Cells(a, Columns.Count).End(xlToLeft).Column + 1) = Cells(b.Row, b.Column + 1)
End If
Next
Next
End Sub

 

[honestman]

Aynen. Teşekkür ederim.