Доброе время суток,

помогите решить задачу по замене в тексте запятой только у цифровых значений
Пример:
Имеем ячейку:
Мощность: 3.250 Ватт, Объем: 8 литров, Вес: 7,8 кг, Рабочее напряжение: 220 - 240 В, Сетевой предохранитель: 16 A, Частота: 50 - 60 Гц, Ширина: 31,7 см, Высота: 38,45 см, Длинна: 41,53 см, Материал: сталь

Необходимо заменить 7,8 на 7.8, 31,7 на 31.7, 38,45 на 38.45, 41,53 на 41.53
В общем нужно поменять запятую на точку только между чисел, остальные запятые разделяющие параметры должны остаться.

Помогите научить макрос грамотному замену слов  
 
Цель научить макрос не менять слово если    
оно попадается в середине другого слова.  
Т.е. если я хочу заменить "i / и" то слово    
penicillin не должно измениться на penиcиllиn, а остаться неизменным.  
Спасибо!!!  
 
пример работы макроса в приложенном файле

Здравствуйте ,  
 
Казалось бы что может быть проще, но ни как не могу решить проблему с округлением.  
Имеются цены в колонке:  
1.399,-  
899,-  
764,95  
866,-  
1.099,-  
744,90  
Нужно что бы цены округлились вверх до целого числа и все лишние знаки ".,-" были удалены.  
У меня есть макрос который почти справляется с этой задачей кроме одного, цены которые выглядят как 1,11 после выполнения макроса становятся 111 что является грубой ошибкой.  
Все это происходит из за того, что после приведения цены в числовой формат до целого, цифры после запятой не исчезают, а просто скрываются. А после очистки ненужных символов ".,-"  
, они вновь возвращаются. Подскажите как с этим справится?  
 
==================  
 
Sub Очистка_цены()  
     
   Columns("G:G").Select  
   Application.CutCopyMode = False  
   Selection.NumberFormat = "0"  
 
   Range("G1", Cells(Rows.Count, 7).End(xlUp)).Select  
     
   Selection.Replace What:=".", Replacement:="", LookAt:= _  
       xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
     
     
Dim ce As Range  
For Each ce In Selection  
       cv = Val(ce.Value): ce.Value = IIf(cv = 0, "", Fix(cv))  
     
   Next  
     
End Sub  
==================  
 
С уважением Евгений

Зравствуйте,  
 
есть у меня код который в принципе работает, но есть одно но! Он в конце проделанной работы зацикливается, приходится жать на "Esc". но тем не менее он справляется с своей задачей. Помогите сделать так что бы код не зацикливался.  
 
Суть кода в том что он убирает все буквенные символы включая "апостроф" оставляя только цифры.  
Имеем: '1.255.- руб.    
Получаем: 1255  
 
===============================  
Sub test()  
     
   Columns("H:H").Select  
     
   Selection.Replace What:=".", Replacement:="", LookAt:= _  
       xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
     
     
   Dim ce As Range  
   For Each ce In Selection  
       cv = Val(ce.Value): ce.Value = IIf(cv = 0, "", Fix(cv))  
     
   Next  
     
End Sub  
===============================  
 
Нужно либо остановить цикл в конце последней исправленной ячейки, либо путем задания диапазона H1:H5000  
 
меняя этот параметр Columns("H:H").Select на определенный диапазон почему то не хочет работать.  
 
Кому не сложно подскажите

Есть код который ищет и заменяет текст, символы и т.д.  
Как добавить в этот код множество искомых выражений и их замены?  
Сам код выглядит так:  
===============================  
Sub ReplaceCellsData()  
  Dim cell As Range  
  ' Просмотр всех ячеек диапазона G1:K20 и замена искомого текста  
  For Each cell In [K1:K2000]
     If cell.Value Like "*арбуз*" Then  
        cell.Value = "дыня"  
     End If  
  Next  
End Sub  
===============================  
Мне нужно что бы одним нажатием происходила замена не только арбуз на дыня, но и огурец на сливу и т.д. необходимое количество замен которые я добавлю в код.  
 
Помогите пожалуйста

Здравствуйте ,  
 
Нужен макрос который будет искать по всему листу и удалять содержимое двух рядом-стоящих ячеек при условии, что в ячейки справа знак "-"  
 
(пример: удалить ячейки A1,B1 если B1="-"),    
 
 
 
С уважением Евгений