Ersetzen Sie mehrere Zeichen in einer Zeile VBA

Question

Ich arbeite in VBA und habe eine Zelle mit allen Buchstaben des Alphabets, und ich möchte alle Buchstaben ersetzen (mit nichts, "", oder eine Zahl, "0") sowie mögliche Interpunktion. Ich laufe es derzeit als:

val = Replace(val, "(", "") 
val = Replace(val, "]", "") 
val = Replace(val, "A", "") 
val = Replace(val, "B", "") 
val = Replace(val, "C", "") 
val = Replace(val, "D", "") 
val = Replace(val, "E", "") 
val = Replace(val, "F", "") 
val = Replace(val, "G", "") 
val = Replace(val, "H", "") 
val = Replace(val, "I", "") 
val = Replace(val, "J", "") 
val = Replace(val, "K", "") 
val = Replace(val, "L", "") 
val = Replace(val, "M", "") 
val = Replace(val, "N", "") 
val = Replace(val, "O", "") 
val = Replace(val, "P", "") 
val = Replace(val, "Q", "") 
val = Replace(val, "R", "") 
val = Replace(val, "S", "") 
val = Replace(val, "T", "") 
val = Replace(val, "V", "") 
val = Replace(val, "W", "") 
val = Replace(val, "X", "") 
val = Replace(val, "Y", "") 
val = Replace(val, "Z", "") 

Ich habe versucht:

val = Replace(val, "(", "") 
val = Replace(val, "]", "") 
val = Replace(val, "[A-TV-Z]", "") 

Ich könnte eine Schleife hinzufügen, aber dann wird die Rechenzeit nicht ändern.

Aber es funktioniert nicht. Gibt es eine Möglichkeit, die 25 Codezeilen durch eine einzelne Zeile zu ersetzen, wie ich es versucht habe, da ich 1M Zellen lesen muss, und es dauert eine lange Zeit, um derzeit zu laufen. Der traurige Teil ist, dieser Ersatz wird zu verschiedenen Anlässen überall durchgeführt.

Answer 1

Sie versuchen regex kann. Ich kann das nicht in einer einzigen Zeile finden, aber es sollte schneller sein als Ihre aktuelle Version und hat weniger Zeilen. Beachten Sie, dass Sie einen Verweis auf die Microsoft VBScript Regular Expressions-Bibliothek benötigen.

Public Function Replacement(sInput) As String 

Dim regex As New RegExp 

With regex 
    .Global = True 
    .IgnoreCase = False 
End With 

regex.pattern = "[A-Z, a-z]" 
Replacement = regex.Replace(sInput, "") 


End Function 

Answer 2

Die Regex.Replace() Funktion wird benötigt, reguläre Ausdrücke zu verwenden:

val = Replace(val, "(", "") 
val = Replace(val, "]", "") 
val = Regex.Replace(val, "[a-z]", "", RegexOptions.IgnoreCase)