iki sütundaki veriyi başka bir sütunda birleştirme

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; A1 ve B1 deki verileri D1 makro ile birleştirmek istiyorum, bu veriler alt alta devam edecek, Örneğin A1 ahmet b1 ÇAM İse D1 de Ahmet çam yazacak bu makro ile olacak teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodu kullanabilrsiniz.

Sub Birlestir()
 
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "D") = Cells(i, "A") & " " & Cells(i, "B")
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "Birleştirme tamamlandı...."
 
End

Sub

 

[Hacı Bayram ÖZKAN]

Nejdet bey; eline sağlık dua ile kalın.