как с помощью формулы проставить тире между цифрами

[ALEKS2008]

например 0672465786 а надо преобразовать в тойже ячейке, (можно в следущей, но обязательнов в той же строке) (067) 246-57-86. но тут есть нюанс, этот же телефон может податься в формате: 80672465786 или 8(067)2465786, 8 (067) 24-65-786, (067)2465786
Буду очень благодарен,сам не справляюсь !!! (возможно без макроса не обойтись)

[motorway]

а что, код всегда только 067?

[doober]

Функция для обработки номера
и пример использования.
А Вы потом примените ,как надо по обработке ячеек

Public Function Telefon(lin As String) As String
Dim i As Integer

   lin = Replace(lin "-", "")
   lin = Replace(lin, "(", "")
   lin= Replace(lin, ")", "")
   lin= Replace(lin, ")", "")
   lin= Replace(lin, Space(1), "")
    lin = Replace(lin, Space(1), "")
     
     i = Len(linnn)
     
     If i < 10 Then
     
     MsgBox ("Не правильный номер")
     Exit Function
     End If
     
      lin = Mid(lin, i - 9, 10)
   Telefon = "(" & Mid(lin, 1, 3) & ")" & Space(1) & Mid(linnn, 4, 3) & "-" & Mid(lin, 7, 2) & "-" & Mid(lin, 9, 2)
     

End Function

Private Sub CommandButton1_Click()


Dim nomer   As String

nomer = Telefon(" 8 (067) 2465786")
 MsgBox (nomer)

End Sub

[motorway]

Если да, можете попробовать такую замысловатую формулу (число в ячейке A1):

="(067) "&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");ПОИСК("067";ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");1)+3;3)&"-"&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");ПОИСК("067";ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");1)+6;2)&"-"&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");ПОИСК("067";ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");1)+8;2)

[Teslenko_EA]

Здравствуйте ALEKS2008.
добавьте к проекту книги модуль и разместите в нем подобный код

Function toTelNumber(nmb) As String
nmb = nmb.Text
nmb = Replace(nmb, " ", "")
nmb = Replace(nmb, "(", "")
nmb = Replace(nmb, ")", "")
nmb = Replace(nmb, "-", "")
If Len(nmb) = 10 Then nmb = 8 & nmb
toTelNumber = Format(nmb, "0(000)000-00-00")
End Function

и тогда формула =toTelNumber(A6) отобразит номер ячейкb A6 в заданном формате.
Удачи Вам.
Евгений.

[doober]

motorway
Это в том случае,если один оператор,а если нет,утвердительного ответа не было.На Киевстаре кроме 067 ёще 097,098

[motorway]

ну в принципе переделывается легко - заменой соотв. символов. Можно и макрос написать

[IgorGO]

или такой еще вариант:
1.удаляем в столбце с телефонами открывающиеся, закрывающиеся скобки и тире с помощью Ctrl+H (найти и заменить)
2. правая кнопка мыши по столбцу / формат ячеек / (все форматы) / в строку "тип" пишем это: #(###) ###-##-## / жмем ОК

[ZORRO2005]

Без VBA см.вложение

[ALEKS2008]

="(067) "&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТА ВИТЬ(A1;")";"");" ";"");"-";"");ПОИСК("067";ПОДСТАВИТЬ(ПОДСТА ВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");1)+3;3)&"-"&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТА ВИТЬ(A1;")";"");" ";"");"-";"");ПОИСК("067";ПОДСТАВИТЬ(ПОДСТА ВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");1)+6;2)&"-"&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТА ВИТЬ(A1;")";"");" ";"");"-";"");ПОИСК("067";ПОДСТАВИТЬ(ПОДСТА ВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");1)+8;2)

НЕ РАБОТАЕТ