Подскажите люди добрые как по средствам vba удалить все точки и запятые из определенного столбца
Имеется такая формула, она работает, но слишком сильно нагружает excel и точно знаю что проблема во 2 строке.
Имеется такая формула, она работает, но слишком сильно нагружает 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 |
Изменено: - 24.01.2017 00:58:33
