Как отформатировать ячейки, содержащие ошибки

Question

У меня есть несколько ячеек, содержащих телефонные номера, отформатированные как текст - например: 3476225598 Как я могу преобразовать каждую ячейку, чтобы она отображалась как 347.6225598?

Answer 1

Если ячейки отформатированы как текст, выберите их и запустите этот короткий макрос:

Sub FormatCells()
    Dim r As Range
    For Each r In Selection
        r.NumberFormat = "@"
        v = r.Text
        r.Value = Left(v, 3) & "." & Mid(v, 4)
    Next r
End Sub

РЕДАКТИРОВАНИЕ № 1:

Без VBA предположим, что данные находятся в A1..... в B1 введите:

=LEFT(A1,3) & "." & MID(A1,4,9999)