Как макросами заменять точки на пусто без ошибок

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как макросами заменять точки на пусто без ошибок (Макросы Sub)

Deniska1

Дата: Пятница, 25.10.2013, 16:07 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день!
Таблица большая, есть данные которые имеют точки и их нужно заменить на «» пусто.
Написал макрос по всем заменам, в ручном режиме меняется нормально, но когда пытаюсь заменить макросам, то почему-то убиваются точки и большая часть запятых.
Во вложении небольшой пример с макросам можете запустить и убедится!
Кто может помогите решить проблему!
За ранее большое спасибо!!!

К сообщению приложен файл: 8657792.xls (34.5 Kb)

Сообщение отредактировал Deniska1 - Пятница, 25.10.2013, 16:53

Ответить

Serge_007

Дата: Пятница, 25.10.2013, 17:03 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

[vba]

Код

Sub точки()
Dim q As Range
Set q = Range("U2:Z14201")
     For Each q In q
         If IsNumeric(q) = False Then
             q.Replace What:=".", Replacement:=""
         End If
     Next q
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Alex_ST

Дата: Пятница, 25.10.2013, 22:26 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3209

Репутация: 609 ±

Замечаний: 0% ±

2003

Цитата Serge_007, 25.10.2013 в 17:03, в сообщении № 2

For Each q In q

Наверное, всё-таки так:[vba]

Код

Sub точки()
Dim q As Range
       For Each q In Range("U2:Z14201")
           If Not IsNumeric(q) Then q.Replace What:=".", Replacement:=""
       Next q
End Sub

[/vba]
А скорее всего и без цикла получится:[vba]

Код

Sub точки()
Range("U2:Z14201").Replace ".", "", xlPart
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Пятница, 25.10.2013, 22:30

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как макросами заменять точки на пусто без ошибок (Макросы Sub)

Страница 1 из 1
1