VBA скрипт для форматирования телефонных номеров

Question

Я пытаюсь написать сценарий VBA для форматирования списка из нескольких тысяч телефонных номеров, которые я сохранил в таблице Excel. Пока у меня есть это, но когда я запускаю его, он не форматирует номер телефона. Он добавляет значение NULL, если ячейка пуста, но не форматирует число, когда кто-нибудь видит, что я делаю неправильно?

Sub CheckPhoneNumber()
Dim retNumber As String

Range("K3").Activate

Do Until ActiveCell.Row = 3746
If ActiveCell.Value = "" Then
ActiveCell.Value = "NULL"
Else
For i = 1 To Len(ActiveCell.Value)
    If Asc(Mid(ActiveCell.Value, i, 1)) >= Asc("0") And Asc(Mid(ActiveCell.Value, i, 1)) <= Asc("9") Then
        retNumber = retNumber + Mid(ActiveCell.Value, i, 1)
    End If
Next
If Len(retNumber) > 10 Then
    cleanPhoneNumber = Format(retNumber, "(+#) 000-000-0000")
Else
    cleanPhoneNumber = Format(retNumber, "000-000-0000")
End If
End If
ActiveCell.Offset(1, 0).Activate

Loop
End Sub

Answer 1

Похоже, вы забыли написать cleanPhoneNumber обратно на лист? вам нужно ActiveCell.Value = cleanPhoneNumber до финала end if.