VBA-Alt Alta Verileri Belirli Bir Düzende Yan Yana Yapmak

[gokceye]

Merhaba
Ben alt alta sıralı olan hücrelerimi yan yana birleştirmek istiyorum. Birleştirme ölçütüm ise ikişerli gruplar halinde olmalı.
Örneğin:
A1
A2
A3
A4
A5
.
.
.
.
Biçiminde devam eden bir sütunda yer alan verileri "A1 ve A2" "A3 ve A4" "A5 ve A6" "A7 ve...." olacak şekilde yan yana ve aralarında "/ " işareti ile sırasıyla B1, B2,B3....'e taşımak istiyorum. Bunun için bir VBA koduna ihtiyacım var. Ben bir türlü oluşturamadım. Bana yardımcı olabilir misiniz?

Teşekkürler.

 

[Murat OSMA]

Merhaba,
Bu kodları kullanabilirsiniz..

[SIZE="2"]Sub Emre()
    Dim i&, a&
    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 2
        a = a + 1
        Cells(a, 2) = Cells(i, 1).Value & "/" & Cells(i + 1, 1).Value
    Next i
    i = Empty: a = Empty
End Sub[/SIZE]