DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Emre()
Dim i As Integer
For i = 1 To Range("A1").CurrentRegion.Rows.Count
Cells(i, 1) = Replace(Cells(i, 1), " ", "", 1, 2)
Next i
i = Empty
End Sub