Comment faire pour supprimer TOUS les numéros à partir d'une cellule avec une fonction ou une expression régulière?

J'ai cellules qui ressemblent à ça, un par ligne:

Duffy,Jean: "Le Patrimoine: La Civilisation
et les Juifs " - Fanfare &
Chorale,Danses Symphoniques + Orchestre
Suite. Bernstein, "Sur la Ville" de la Danse
Les épisodes. Royal Phil./R. Williams

Lilien,Ignace 1897-1963:
Chansons,1920-1935. Anja van Wijk,mezzo &
Frans van Ruth,piano

Hindemith,Trauermusik. Purcell,'Fairy
La Reine De La Suite. Rossini,Chaîne Sonate 6.
Petrov, " la Création du Monde, Ballet de
Suite. Bartok,Roumain Folkdances Sz
56. Tartini,le Concerto pour Flûte en sol w.Un.Maiorov Leningrad Orch.pour les Anciens
& la Musique Moderne/Serov

Bizet,Verdi,Massenet,Puccini: Arias
de Carmen,Rigoletto,Werther,Manon
Lescaut,Tosca,Turandot + Chansons
Lara,Di Capua et coll. Peter
Dvorsky,ténor w.Bratislava
Orch./Lenard Aussi l'accomplissement de "Carmen"
Manifestes.& "Thaïs" la Méditation.
Rec.Live,10/87

Fantini,Rauch,C. Straus,Priuli,Bertali:
'Festival de Masse à la Cour Impériale
de Vienne,en 1648' Yorkshire Bach Choir &
Baroque Soloists + Baroque en Laiton de
Londres/Seymour

Vinci,Leonardo1690-1730: des Airs d'
Semiramide Riconosciuta,Didone
Abbandonata,La Caduta dei Decemviri,Lo
Cecato Fauzo,La Festa de Bacco,Catone
à Utica. Maria Angeles Peters sop.
w.M.Carraro la conduite de

Gluck,Mozart,Beethoven,Weber,Verdi,Wagner,Ponchielli,Mascagni,Puccini:
Des airs d'Alceste,Ne
Giovanni,Fidelio,Oberon,Ballo,Tristan,Walkure,Siegfried,Gotterdammerung,Gioconda,Cavalleria,Tosca.
Hélène Wildbrunn. Rec.1919-24

Je voudrais supprimer TOUS les numéros. comment puis-je le faire avec une formule? ou peut-être seulement rechercher et remplacer avec la regex?

Voulez-vous supprimer les tirets avec le nombre? Qu'est-ce que la gamme pour tous les modèles possibles?

OriginalL'auteur l--''''''---------'''''''''''' | 2010-08-26

10

Comment le faire à l'aide de VBA...
1. Ouvrir un classeur Excel et coller le texte que vous avez fourni cette façon:
2. Laisser les lignes sélectionnées.
3. Appuyez sur “ALT+F11 pour ouvrir l'Éditeur Visual Basic.
4. Aller à l'Insertion d'un Menu et ouvrez un Module.
5. Type dans cette fonction:
```
Sub clear()
s = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
For Each r In Selection
v = r.Value
For i = 0 To 9
v = Replace(v, s(i), "")
Next
r.Value = v
Next
End Sub
```
6. Cliquez sur le bouton de lecture vert pour exécuter le script VBA.
7. Revenir à la feuille et de voir le résultat (pas plus de chiffres):
OriginalL'auteur Leniel Maccaferri
2

J'ai été confronté à un problème similaire, mais a choisi une autre voie, voulant éviter à l'aide de vba. Un appel récursif à l'utilisation de substitut a fait le tour pour moi, comme illustré ci-dessous:

De données d'origine (dans la plage A1:Un, n=integer)
ROE -1.00
P/E 0.07 -0.85
ROC-RE 0.02 -0.03
etc..

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"1",""),"0",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9","")

qui peut être étendue à se débarrasser de la "-" et l'indicateur décimal "." ainsi que "+" (si pertinent) et enfin, le superflu des espaces à l'aide de

=trim(substitute(substitute(substitue(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"1",""),"0",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9",""),"-",""),"+","")," .",""))

où les minuscules représente complications ajouté dans l'étape actuelle.

Ce cartes naturellement sur l'ensemble de la matrice par la modification de la gamme de référence pour l'ensemble de la matrice analysée (A1:) et dans la formule sous la forme d'un tableau (c'est à dire, à l'aide de Ctrl+Entrée au lieu de Enter pour terminer la tâche).

Je puis utiliser nbcar(B1) pour vérifier les résultats sont ce que je veux.

Pas très élégant, certes. Mais peut être un exercice utile pour enseigner aux étudiants à penser et à un code "à la volée".

OriginalL'auteur dalakomala

Mise à JOUR: j'avais accidentellement posté un contient la fonction au lieu de remplacer!

De recherche et de remplacement avec la Regex fonctionne très bien, mais vous pourriez souhaitez modifier votre texte par la suite (comme les virgules qui étaient là avant les numéros, etc.).

Ici est la fonction. Modèle est tout simplement =RegexReplace(cellule, "\d", "")

Function RegexReplace(ByVal text As String, _
                      ByVal replace_what As String, _
                      ByVal replace_with As String) As String

Dim RE As Object
Set RE = CreateObject("vbscript.regexp")

RE.Pattern = replace_what
RE.Global = True
RegexReplace = RE.Replace(text, replace_with)

End Function

OriginalL'auteur aevanko

Vous devez vous connecter pour publier un commentaire.