DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub test()
Dim i As Long
For i = 3 To Cells(Rows.Count, "D").End(xlUp).Row
Cells(i, "C") = Cells(i, "C") & " " & Cells(i, "d")
Next i
End Sub