Microsoft Excel. Insertion d'un élément commun dans une ligne / colonne entière

Je rencontre un problème fondamental avec Excel et Outlook. S'il vous plaît, réfléchissez-y.

J'ai une liste de numéros de téléphone sur la feuille Excel ainsi que sur les perspectives. C'est juste une colonne. Tout ce que j'ai à faire est d'insérer "92" avant chaque numéro de téléphone dans chaque cellule.

Par exemple, à l'heure actuelle, une cellule ressemble à ceci; 03128162423

J'en ai besoin pour ressembler; 9203128162423

Si vos valeurs actuelles figurent dans la colonne A, placez-le dans la colonne B, à partir de la cellule B1.

= "92" & A1

recopie.

Une autre façon de mettre le «92» devant les numéros de téléphone consiste à ajouter une colonne à gauche et à utiliser la formule suivante:

="92"&B1

copié par le bas des données.

À cette fin, dans Outlook, ce lien montre comment modifier les numéros de téléphone dans la liste de contacts. Bien que le code soit conçu pour supprimer les préfixes et modifier les formats, il peut être facilement modifié pour insérer un préfixe. Par exemple, quelque chose d'aussi simple que la fonction suivante pourrait être appliqué:

Private Function Add92(strPhone As String) As String
    strPhone = Trim(strPhone)
    If strPhone = "" Then 
        Exit Function
    End If
    Add92 = "92" & strPhone
 End Function

La procédure de bouclage utilisée pour parcourir la liste des numéros de téléphone ressemblerait alors à ceci (j'ai abrégé le code du lien pour me concentrer sur la structure de bouclage).

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

Dans Excel, je créais une colonne précédant les numéros de téléphone de 92, puis je sélectionnais les deux colonnes et les fusionnais. Je crois que l’option pour le faire est dans l’onglet Données.

La meilleure façon de le faire est de sélectionner les cellules ligne / colonne et le format, allez à la coutume, le type 92et 11 zéros ( en fonction de votre nombre actuel) comme ceci: 9200000000000.

J'espère que cela aidera après TOUTES ces années.