{quote}{login=dimas}{date=03.04.2010 10:08}{thema=Обработка городских сотовых телеф.номеров в федеральный формат}{post}Например диапазон: 2350000-2359999 код 8351 или диапазон 460000–479999 код 83519 или т.д.{/post}{/quote}  
Нужны диапазоны , иначе откуда макросу знать "или т.д.".  
Формулой (не VBA) принимается?

Поглядите на пример макроса в этом файле: http://excelvba.ru/XL_Files/Sample__03-04-2010__14-17-12.zip  
 
 
Вот весь код:  
 
Sub ОсновнойМакрос()  
   Dim cell As Range, ra As Range: Application.ScreenUpdating = False  
   Set ra = Range([A3], Range("A" & Rows.Count).End(xlUp))
   For Each cell In ra.Cells  
       cell = НовыйНомер(cell)  
   Next cell  
End Sub  
 
Function НовыйНомер(ByVal СтарыйНомер As String) As String  
   txt = Replace(СтарыйНомер, " ", ""): txt = Replace(txt, "-", ""): txt2 = ""  
   For i = 1 To Len(txt)  
       символ = Mid(txt, i, 1): If символ Like "#" Or символ = "," Then txt2 = txt2 & символ  
   Next i  
   ОбработаноНомеров = 0  
   For Each num In Split(txt2 & ",", ",")  
       num2 = НомерСКодом(num)  
       If num <> num2 Then ОбработаноНомеров = ОбработаноНомеров + 1: НовыйНомер = num2: Exit Function  
   Next num  
   НовыйНомер = txt    ' если ничего не нашли  
End Function  
 
 
Function НомерСКодом(ByVal НомерБезКода) As String  
   '2350000-2359999 код 8351, 460000–479999 код 83519  
   Select Case НомерБезКода  
       Case 2350000 To 2359999: code = 8351  
       Case 460000 To 479999: code = 83519  
           ' ....  
       Case Else: code = ""  
   End Select  
   НомерСКодом = code & НомерБезКода  
End Function

{quote}{login=EducatedFool}{date=03.04.2010 12:17}{thema=}{post}Поглядите на пример макроса в этом файле: http://excelvba.ru/XL_Files/Sample__03-04-2010__14-17-12.zip  
 
 
Вот весь код:  
..................  
{/quote}  
 
Да, вроде все так как задумывалось! Немного неудобно заходить постоянно в макрос и редактировать "Set ra = Range([A3]" если номера расположены в других столбцах.
Можете дописать в макрос строку, чтобы при старте команды появлялось окно с предложением ввести номер столбца, который требуется обработать?  
 
После теста на большой базе с разными номерами, отпишусь, как все работает.