Visual Basic de Microsoft pour Applications (VBA) est un sous-ensemble de Visual Basic qui est utilisé pour personnaliser les applications Microsoft Office. Un morceau de code VBA, une macro, peut remplacer de nombreuses fonctions répétitives comme rechercher et remplacer. Si vous voulez supprimer certains caractères à partir de cellules, comme des périodes ou des virgules, écrire une routine pour effectuer la tâche pour vous. Au lieu d`avoir à cliquer "Trouver et remplacer" plusieurs fois, vous pouvez obtenir VBA pour effectuer la tâche pour vous dans un bouton poussoir.
presse "Alt" + "F11" dans Excel pour ouvrir l`éditeur Visual Basic (VBE).
Cliquez "Insérer" gt; "Module."
Coupez et collez le code suivant dans la fenêtre vide:
Option Explicit
Sous Supprimer ()
Dim rgxRegExp As ObjectDim rngCell Comme Range, rngRange Comme Range
Set rngRange = Sheet1.Range ("A1: A3")
Set rgxRegExp = CreateObject ("VBScript.RegExp")
rgxRegExp.Global = True
rgxRegExp.Pattern = " |.,"
Avec l`application
.Calcul = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
Terminer par
Pour chaque rngCell Dans rngRange.SpecialCells (xlCellTypeConstants)
rngCell.Value = rgxRegExp.Replace (rngCell.Value, vbNullString)
Prochain
Avec l`application
.Calcul = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
Terminer par
End Sub
Modifier la plage pour correspondre à la plage de données que vous souhaitez supprimer les caractères à partir. Par exemple, si vous souhaitez supprimer les caractères de cellules D1 à D110 dans la feuille 2, ligne 5 changement dans le code à lire:
Set rngRange = Sheet2.Range ("D1: D110").
Modifiez le code pour refléter les caractères que vous souhaitez supprimer à partir des cellules dans votre feuille de calcul. Le code comme écrit supprime les périodes ou des virgules (rgxRegExp.Pattern = ". |,"). Vous pouvez changer de code qui supprime les virgules et les tirets (rgxRegExp.Pattern = ", | -") Ou des périodes et pourcentages (rgxRegExp.Pattern = ". |,"), Ou vous pouvez remplacer les numéros et autres caractères spéciaux.
presse "F5" pour exécuter la routine.
Conseils & Avertissements
- Vous n`êtes pas obligé de quitter le VBE pour vérifier si le code a exécuté l`action que vous attendiez. Basculer entre la feuille de calcul et la VBA en appuyant "Alt" + "F11."
