lvv85

Можно и без VBA сделать:
="+7 (" & ПСТР(A1;ДЛСТР(A1)-10;3) & ") " & ПСТР(A1;ДЛСТР(A1)-7;3) & "-" & ПСТР(A1;ДЛСТР(A1)-4;2) & "-" & ПСТР(A1;ДЛСТР(A1)-2;2)