DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Örnek dosya ekte.
Sub Degistir()
Dim i As Long, _
t As String
For i = 2 To Cells(Rows.Count, "A").End(3).Row
t = Range("A" & i).Text
t = Replace(t, ",", "")
Cells(i, "B") = t
Next i
End Sub