Если без макроса, то вставляем 1 в ячейку, копируем, а потом спецвставкой, з параметром умножить и вся любовь.Очень полезная штука

Если без цикла, то спец.вставкой:  
With Range(Cells(2, col), Cells(iLastRow, col))  
.Copy  
.PasteSpecial Paste:=xlPasteValues  
.NumberFormat = "0.00"  
.Value = .Value  
End With

For Each objCell In objRange  
objRange - что это такое?

Ну обозвал  
Sub Число()  
Dim objCell As Object  
For Each objCell In objRange  
With Range(Cells(2, col), Cells(iLastRow, col))  
.Copy  
.PasteSpecial Paste:=xlPasteValues  
.NumberFormat = "0.00"  
.Value = .Value  
End With  
 End If  
Next  
End Sub  
 
Все равно не работает.  
Ругается на строке End If  
 
С ув. Муля!

>> Все равно не работает.  
Правильно не работает. У Вас там куча необъявленых переменных к-рым не присвоено никаких значений, End If без If и вообще все это бессмыслица. Попробуйте так:  
Sub Число()  
   Dim c As Range, iLastRow&, col&  
   col = 2: iLastRow = 100  
   For Each c In Range(Cells(2, col), Cells(iLastRow, col))  
       c.Copy  
       c.PasteSpecial Paste:=xlPasteValues  
       c.NumberFormat = "0.00"  
       c.Value = c.Value  
   Next  
End Sub

A каким образом не работает макрос KukLP?  
Т.е. что, по вашему он должен делать, и как вы его запускаете?  
И что значит пользовательская функция на эту тему?

{quote}{login=Юрий М}{date=02.07.2011 04:09}{thema=}{post}Скорее всего Вы его просто не запустили.{/post}{/quote}:-)  
Муля, выложите кусок таблицы, где не работает(правила). Может все проще. Тот перебор, что у Вас - самый неэффективный метод. Глядишь и функцию поможем сделать. А так как Вы, надергать строк из разных макросов, не понимая что они значат...  
Пользуйтесь, пока выходные, планетянам скучно:-)

Мда... Про сумму прописью знаем, а сумму из прописи...:-)

{quote}{login=Муля}{date=02.07.2011 01:24}{thema=}{post}Ну обозвал  
Sub Число()  
Dim objCell As Object  
For Each objCell In objRange{/post}{/quote}стиль объявления переменных прям как мой ^_^    
Как в школе учили)

{quote}{login=KukLP}{date=02.07.2011 09:03}{thema=Re: Re: }{post}{quote}{login=R Dmitry}{date=02.07.2011 06:40}{thema=Re: }{post}{quote}{login=KukLP}{date=02.07.2011 05:06}{thema=}{post}Мда... Про сумму прописью знаем, а сумму из прописи...:-){/post}{/quote}  
Сергей привет, если задаться целью  сделать такой код, то его сделать можно.  
если есть логика , как говориться "туда", значит есть и оттуда.{/post}{/quote}Да я не о том. Не проще ли набрать число, чем текст с последующим преобразованием его в число. Как-то в жизни не встречалось.{/post}{/quote}  
 
Ну не знаю как у Муля, но в жизни все может  быть, иногда в различных "экспортах" из различных программ встречается и не такое :)  
 
хотя такого честно не встречал ни разу :)

я вижу это как-то так...  
 
внимание - заготовка, чисто для примеру. ограничено целыми числами от 1 до 999999 и нет проверок на ошибки.

{quote}{login=Муля}{date=02.07.2011 10:50}{thema=}{post}Самый простой пример, где это пригодится. У ведомости начисления зарплаты месяц словом, а вот у сводной - желательно цифрами. <...> В одном месте месяц словом, а в другоя цифрами.{/post}{/quote}  
Просто нужно нормально вводить данные: месяц в виде ДАТЫ, а отображать его в нужном виде уже форматированием. Тогда не потребуются вот такие выкрутасы. Лечите причину, а не следствие.

{quote}{login=Муля}{date=03.07.2011 12:18}{thema=}{post}Здраствуйте ПЛАНЕТЯНЕ!  
Ув. ikki! \Великолепная штука. А если бы с милионами и назваными вами проверками, было бы гениальною  
Большое спасибо!!!  
гениально{/post}{/quote}  
 
ну вот Вам и домашнее задание - доработать макрос :)  
 
если более серьёзно - то всё-таки не вижу я в такой задаче практического смысла.  
а для "от нечего делать" - предполагаемая реализация довольно муторная (например, надо корректно обрабатывать варианты, когда есть миллины, но нет тысяч; кроме того, надо отслеживать "уровни" чисел-строк - т.е. чтобы макрос понимал, что "пятьсот пять" - это правильно, а "пять пятьсот" - неправильно...)  
 
короче - ну её нафиг, такую задачку.  
сорри.

Чуток сократил код: UDF - пропись2число2()