Другой способ поставить "92" перед номерами телефонов - добавить столбец слева и использовать следующую формулу:
="92"&B1
скопировал вниз через данные.
При выполнении этого в Outlook эта ссылка показывает, как изменить телефонные номера в списке контактов. Хотя код предназначен для удаления префиксов и изменения форматов, его можно легко изменить, чтобы вместо него вставить префикс. Например, можно применить что-то простое, например, следующую функцию:
Private Function Add92(strPhone As String) As String
strPhone = Trim(strPhone)
If strPhone = "" Then
Exit Function
End If
Add92 = "92" & strPhone
End Function
Процедура зацикливания, используемая для просмотра списка телефонных номеров, выглядела бы следующим образом (я сократил код из ссылки, чтобы сосредоточиться на структуре зацикливания).
Sub FormatPhoneNumber()
Dim oFolder As MAPIFolder
Set oFolder = Application.ActiveExplorer.CurrentFolder
Dim oItem
For Each oItem In oFolder.Items
Dim oContact As ContactItem
Set oContact = oItem
If Not oContact Is Nothing Then
With oContact
.HomeTelephoneNumber = Add92(.HomeTelephoneNumber)
' (the original code includes the other categories
' of telephone numbers available in Outlook)
.Save
End With
End If
Next
End Sub