İki ayrı hücredeki veriyi alt alta birleştirme

[MurCeLL]

Merhaba,

Excel'de iki ayrı hücredeki verileri alt alta birleştirmek istiyorum. nasıl yapılacağına dair bir dosya yükledim. İlk olarak A1 deki veriyi C1'e yazacak. altına B sütunundaki bütün verileri yazacak. Sonra A2 deki veriyi C sütununa yazacak. tekrar altına B sütunundaki bütün verileri yazacak bu işlem böyle A sütununda ne kadar veri var ise devam edecek. A sütunundaki ve B sütunundaki veri sayıları değişebilir. Böyle bir şablon için yardımcı olursanız sevinirim.

http://speedy.sh/spx5R/DENEME.xlsx
http://speedy.sh/JZzxS/SORUN.PNG

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
son = Cells(Rows.Count, 1).End(3).Row
liste = Cells(Rows.Count, 3).End(3).Row
Range("C1:C" & liste).ClearContents
b = Cells(Rows.Count, 2).End(3).Row
For i = 1 To son
    If i = 1 Then
    yeni = 1
    Else
    yeni = Cells(Rows.Count, 3).End(3).Row + 1
    End If
    Cells(yeni, 3) = Cells(i, 1)
    Range("B1:B" & b).Copy
    Cells(yeni + 1, 3).Select
    ActiveSheet.Paste
Next
[A1].Select
Application.CutCopyMode = False
bitti = MsgBox("İşlem tamamlandı")

End Sub

yalnız, tecrübeli arkadaşlarımız bu kodlardaki kopyala/yapıştır kısmı nasıl daha kısa ve hızlı olabilir öğretirlerse minnettar olurum.