İki Farklı Sütunlardaki Verileri Kod İle Birleştirme

[mustafa1205]

Örnek Dosyamda da açıklama yaptım. D ve E sütunundaki verileri A sütununa kod ile birleştirmek istiyorum. Sütunlardaki Veriler zaman zaman 10 adette olabiliyor 500 adette olabiliyor. Formül ile sıkıntım yok. Onu rahatlıkla yapabiliyorum. Kod ile birleştirme yapmak istiyorum.

 

[Ziynettin]

Sub birlestir()
Dim alan(), son As Long, i As Long
son = Cells(Rows.Count, "D").End(3).Row
alan = Range("D1:E" & son)
    For i = 1 To UBound(alan)
    alan(i, 1) = alan(i, 1) & " " & alan(i, 2)
    Next i
[A1].Resize(UBound(alan)).Value = alan
End Sub

 

[mustafa1205]

Sayın Ziynettin Hocam çok teşekkür ederim. Gayet güzel çalışıyor. Elinize sağlık...

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Birlestir()
    Range("A:A").ClearContents
    
    With Range("A1:A" & Cells(Rows.Count, "D").End(3).Row)
        .Formula = "=D1&"" ""&E1"
        .Value = .Value
    End With
End Sub

 

[mustafa1205]

Teşekkürler Korhan Hocam. Çok Sağolun. Kusura bakmayın. Biraz geç gördüm cevabınızı. Elleriniz dert görmesin.