Question : exceler le téléphone et le fax d'extrait de vba dans la zone adresse

J'ai une chemise des xlsx et des csvs avec des données de téléphone et de fax dans une colonne d'adresse que je veux mettre dans leur téléphone et fax séparés column.

Ideally, je pense que les règles suivantes extrairaient les données désirées successfully.

1. Non tous les nombres concerne des téléphones (c.-à-d. codes postaux) non que tous les numéros de téléphone sont précédés par tout ce qui l'identifie (IE. disques de téléphone, de pH, de tél.) non tous les ont un téléphone, un fax ou un either.

2. Leurs sont les nombres consécutifs de l'atleast 10+ dans un téléphone (avec des codes internationaux et la composition peuvent être 13-15 nombres) qui pourrait avoir quelques uns de l'un des après des séparateurs [.], [-], [)], [(] ou l'espace simple d'A [].

3. La première occurrence de la rive des nombres comme décrit dans #2 est le téléphone #, la deuxième occurrence est le fax #.  le


I est déjà parvenu à courir un manuscrit sur une chemise des dossiers. J'ai juste noté qu'il sera insoutenable pour que j'entre dans les disques un et pour extrait manuellement le téléphone et le fax # ' s puisqu'il y a de many. class= de

Réponse : exceler le téléphone et le fax d'extrait de vba dans la zone adresse

Essayer ce qui suit :

Il emploie des fonctions d'utilisateur.

Chris

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 :

fnValNum de fonction (strInput comme corde) comme booléen 'Emploie le type bibliothèque « d'expressions régulières de Microsoft VBScript » Faible regEx comme objet Placer le regEx = le CreateObject (« vbscript.regexp ») regEx.IgnoreCase = rectifient regEx.Pattern = « ([0-9] [-. ()] *) {10.15} » le fnValNum = les regEx.test (strInput) = rectifient Placer le regEx = rien Finir la fonction fnGetNum de fonction (strInput comme corde, telNum en tant que booléen) comme corde 'Emploie le type bibliothèque « d'expressions régulières de Microsoft VBScript » Faible regEx comme objet Faible colMatch comme objet Faible itm comme variante Si fnValNum (strInput) puis Placer le regEx = le CreateObject (« vbscript.regexp ») regEx.IgnoreCase = rectifient regEx.Global = rectifient regEx.Pattern = « ([0-9] [-. ()] *) {10.15} » Placer le colMatch = le regEx.Execute (le strInput) Si telNum alors fnGetNum = colMatch (0) Autrement Si colMatch.Count > 1 puis _ fnGetNum = colMatch (1) Finir si Finir si Placer le regEx = rien Finir la fonction

sample-data-1-.xls (34 KBs) (type de dossier détails) 

coder établi dans le dossier fourni