Подскажите люди добрые как по средствам vba удалить все точки и запятые из определенного столбца

[l25827@mvrht.com]

Подскажите люди добрые как по средствам vba удалить все точки и запятые из определенного столбца
Имеется такая формула, она работает, но слишком сильно нагружает excel и точно знаю что проблема во 2 строке.

Sub удалить()
r = Cells(Rows.Count, 1).End(xlUp)
For i = 2 To r
For j = 12 To 13
Cells(i, j) = Replace(Cells(i, j), ".", 1)
Next j
Next i

r = Cells(Rows.Count, 1).End(xlUp)
For i = 2 To r
For j = 15 To 15
Cells(i, j) = Replace(Cells(i, j), ".", 1)
Next j
Next i
End Sub

[Aleksandr H.]

Сообщение от l25827@mvrht.com

Подскажите люди добрые как по средствам vba удалить все точки и запятые из определенного столбца

удалить . , из столбца активной ячейки

Sub DelDots()
    Columns(ActiveCell.Column).Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns(ActiveCell.Column).Replace What:=",", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub