hücreleri birleştirme

[osmanli2]

bir sayfada a ve b sutunlarında 2000 satır metinler var ve bu iki sutundaki hücreleri f sutunundaki satırlarda bir butona atayarak makro ile birleştirmek istiyorum. yardımcı olursanız çok sevinirim

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub BIRLESTIR()
Dim SUT As Integer
For SUT = 1 To Cells(65536, "A").End(3).Row
Cells(SUT, "F") = Cells(SUT, "A") & " " & Cells(SUT, "B")
Next
End Sub

 

[skat]

Sayın N.Ziya Hiçdurmaz İyi geceler;
Uzun zamandan beri arayıpta bulamadığım bir kod yazmışsınız
7200 personele ait bilgilerim vardı birleştirilmesi gereken benim içinde
çok faydalı oldu.Allah Razı Olsun

 

[N.Ziya Hiçdurmaz]

Birşey değil Sayın skat sizdende Allah Razı Olsun