- Katılım
- 7 Mayıs 2009
- Mesajlar
- 22
- Excel Vers. ve Dili
- Office 2010 & 2016
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub birlestir()
For i = 2 To Cells(65536, "B").End(xlUp).Row
Cells(i, "H").Value = Cells(i, "B").Value & " " & Cells(i, "C").Value
Next
End Sub