Comment faire pour supprimer des caractères dans une cellule sur Excel 2007 Avec VBA

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 sur "Rechercher et remplacer" plusieurs fois, vous pouvez obtenir VBA pour effectuer la tâche pour vous dans un bouton poussoir.

Instructions

1 Appuyez sur "Alt" + "F11" dans Excel pour ouvrir l'éditeur Visual Basic (VBE).

2 Cliquez sur "Insérer"> "Module".

3 Coupez et collez le code suivant dans la fenêtre vide:

Option Explicit

Sous Supprimer ()

Dim rgxRegExp As Object

Dim 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

.Calculation = 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

.Calculation = XlCalculationAutomatic

.EnableEvents = True

.ScreenUpdating = True

Terminer par

End Sub

4 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").

5 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 les périodes et les pourcentages (rgxRegExp.Pattern = "|."), Ou vous pouvez remplacer les numéros et autres caractères spéciaux.

6 Appuyez sur "F5" pour exécuter la routine.

Conseils et 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 sur "Alt" + "F11".