VSerg, спасибо , то что надо!

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

помогите решить задачу по замене в тексте запятой только у цифровых значений
Пример:
Имеем ячейку:
Мощность: 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
В общем нужно поменять запятую на точку только между чисел, остальные запятые разделяющие параметры должны остаться.

удаленный файл  
torgovy.clan.su/post_359682.xls

{quote}{login=sva}{date=29.08.2012 07:29}{thema=}{/quote}  
 
:( , макрос не хочет работать так как требуется, выкладываю файл оригинального текста, со списком слов замены "Replace"  
смысл в том, что бы в "лист1" осуществить перевод слов на русский.  
Посмотрите как работает мой макрос, его минус что он переводит немного лишнее, как его ограничить, что бы он не переводил те слова которые должны остаться на английском?  
 
спасибо за ваше старание!  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

{quote}{login=sva}{date=29.08.2012 05:11}{thema=}{post}Если слова разделены пробелами{/post}{/quote}  
 
Непонятно как работает макрос, как задать диапазон ячеек, при добавлении новых слов он их не меняет :(  можете пояснить как он работает?

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

Если бы было все так просто! :(  
 
Это предложение я привел как пример (маленько не удачный), я такой способ тоже использую который вы описали выше, но есть случаи когда это не прокатывает!  
Другой пример:  
 
нужно заменить  
 
no/нет  
none/отсутствует  
(но при этом)  
Lenovo    
(должно остаться неизменным)  
 
и в этом случае нет пробелов, и соответственно во всех словах в которых содержится *no* тоже меняются на "нет"  
 
Существуют ли какие-нибудь символы или механизмы которые будут производить замену только конкретных слов, и игнорировать тот же набор символов внутри другого слова?

Здравствуйте,  
 
Подскажите пожалуйста что в этот код нужно добавить, что бы замена происходила только целого слова, т.е.  
 
Пример:  
Мы бегали по аэропорту  
как заменит "по" на "в" так что бы слово "аэропорту" не изменилось на "аероврту"  
 
========================  
Sub Macros()  
i = 1  
Do While Sheets("Replace").Cells(i, 1) <> ""  
Range("A1:A10000").Replace Sheets("Replace").Cells(i, 1), Sheets("Replace").Cells(i, 2)  
i = i + 1  
Loop  
End Sub  
========================

{quote}{login=KukLP}{date=05.08.2012 04:50}{thema=}{post}Вот и думайте на будущее. Выложи Вы сразу пример со своими попытками, решение получили бы через полчаса максимум. И в теме было бы всего три поста. Ваш, с решением, и со спасибом:-){/post}{/quote}  
 
Учту на будущее! Спасибо!

KukLP, Огромное спасибо!!! Работает!

{quote}{login=KukLP}{date=05.08.2012 03:00}{thema=}{post}Попробуйте:  
Selection.Replace What:=".*"{/post}{/quote}  
 
Так конечно можно избавиться от запятой и цифр после нее, но тогда теряется округление числа в большую сторону.  
 
Выкладываю пример вопроса, старался описать доходчиво.

Здравствуйте ,  
 
Казалось бы что может быть проще, но ни как не могу решить проблему с округлением.  
Имеются цены в колонке:  
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  
==================  
 
С уважением Евгений

Казанский, ber$erk  
Спасибо! Благодарю Вас за помощь!

Вот что получается посмотри скриншот

Код забыл вставить!  
 
Sub Сортировка()  
 
For i = 1 To 44  
For j = i + 1 To 45  
  If Len(Cells(i, 1).Text) > Len(Cells(j, 1).Text) Then  
    a = Cells(i, 1).Text  
    Cells(i, 1).Value = Cells(j, 1).Text  
    Cells(j, 1).Value = a  
  End If  
Next  
Next  
 
End Sub

Здравствуйте ,  
 
У меня почему то Excel отказывается протягивать формулу, вставляет значение протягиваемой ячейки.  
 
Я нашел вот интересный макрос, который сортирует ячейки по символам. Но он мне не подходит т.к. сортирует от меньшего к большему а мне надо наоборот, и сортирует только ячейки одного столбца а мне нужно строки целиком!    
Может кто-нибудь поможет переделать?  
А если он будет автоматически определять количество строк для сортировки, то это будет вообще чудо!  
 
С уважением Евгений

слэн спасибо огромнейшее!!! То что надо!!!

========================  
Sub Macros()  
i = 1  
Do While Sheets("Replace").Cells(i, 1) <> ""  
Range("A1:A10000").Replace Sheets("Replace").Cells(i, 1), Sheets("Replace").Cells(i, 2)  
i = i + 1  
Loop  
End Sub  
========================  
 
С этим кодом разобрался, он работает!

здравствуйте,  
 
k61 почему-то ваш код не хочет работать.  
 
Мне посоветовали еще вот такой код,  
 
Создаете лист "Replace", на котором размещаете таблицу замены. В столбце А что менять, в столбце В на что менять.  
В макросе задаете диапазон ячеек, где требуется произвести замены.  
Запуск макроса надо делать когда лист, на котором делается замена, активный.  
========================  
Sub Macros()  
i = 1  
Do While Sheets("Replace").Cells(i, 1) <> ""  
Range("A1:A10000").Replace Sheets("Replace").Cells(i, 1), Sheets("Replace").Cells(i, 2)  
i = i + 1  
Loop  
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="-"),    
 
 
 
С уважением Евгений