Excel: Supprimer uniquement les caractères alphabétiques (conserver les caractères spéciaux)

0

Deux jeux de données à comparer.

6701.2345_5432 et sur le second le système a inséré des lettres. 6701E.2345_5432

J'ai environ 8 000 lignes à comparer et je n'arrive pas à modifier le code VBA pour supprimer alphas sans supprimer les caractères spéciaux que je dois conserver.

Merci de votre aide!

DanDataDan
la source

Réponses:

1

Ce code VBA utilise RegEx pour supprimer les caractères alphabétiques de toutes les cellules de la feuille active.
Changement [A-Za-z] à tout ce qui devrait être enlevé.

Sub RegExRemove()

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True

    RegEx.Pattern = "[A-Za-z]"
    For Each objCell In ActiveSheet.UsedRange.Cells
        objCell.Value = RegEx.Replace(objCell.Value, "")
    Next

End Sub
nixda
la source
0

Révision mineure pour utiliser uniquement les cellules sélectionnées

Sous RegExRemove ()

Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Global = True

RegEx.Pattern = "[A-Za-z]"
For Each Cell In Selection()
   Cell.Offset(0, 1).Value = RegEx.Replace(Cell.Value, "")
Next

End Sub

Thom Greer
la source