altalta yazılmış değerleri yanyana almak

[nasahnuzu]

merhaba,
elimde isim ve telefon içeren bir liste var. tüm değerler a sütununda. 1. sırada isim 2. sırada da o isme ait telefon numarası var. ben telefon numaralarının ismin sağ tarafındaki hücreye yazılmasını istiyorum.

yardımcı olursanız çok sevinirim

 

[Muhammet Okumuş]

Merhaba,

Sub Ayır()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son Step 2
x = (i + 1) / 2
Cells(x, 3) = Cells(i, 1).Value
Cells(x, 4) = Cells(i + 1, 1).Value
Next
End Sub

kodu deneyiniz.

 

[nasahnuzu]

çok teşekkür ederim ama bu kodu nereye yazmam gerekiyor.