Tato metoda zavede funkci definovanou uživatelem k snadnému odstranění všech druhů interpunkčních znamének z buněk v aplikaci Excel. Postupujte prosím následovně:

1. zmáčkni Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula poté zkopírujte a vložte následující kód do nového otevíracího okna modulu.

VBA: Odstraňte interpunkční znaménka z buněk v aplikaci Excel

Function RemovePunctuation(Txt As String) As String
With CreateObject("VBScript.RegExp")
.Pattern = "[^A-Z0-9 ]"
.IgnoreCase = True
.Global = True
RemovePunctuation = .Replace(Txt, "")
End With
End Function

3. Uložte funkci definovanou uživatelem a zavřete okno Microsoft Visual Basic pro aplikace.

4. Vyberte prázdnou buňku, jejíž výsledek bude výstupem, zadejte vzorec = RemovePunctuation (A2) (A2 je buňka, ze které odstraníte všechna interpunkční znaménka) a poté přetáhněte rukojeť výplně do požadovaného rozsahu.

A pak uvidíte, že jsou odstraněny všechny druhy interpunkčních znamének. Viz snímek obrazovky:

Tato metoda představí program Kutools pro Excel Odebrat znaky nástroj pro rychlé odstranění všech druhů interpunkčních znamének z vybraného rozsahu najednou. Postupujte prosím následovně:

1. Vyberte rozsah, ze kterého odstraníte všechna interpunkční znaménka, a klikněte Kutools > Text > Odebrat znaky. Viz snímek obrazovky:

2. V úvodním dialogovém okně Odebrat znaky zkontrolujte pouze Zvyk možnost a zadejte interpunkční znaménka ~! @ # $% ^ & * () _- + = {} [] :; "" '' <>,. /? `\ | do níže uvedeného pole a klikněte na ikonu Ok knoflík. Viz screenshot:

A pak uvidíte, že jsou z vybraných buněk odstraněny všechny druhy interpunkčních znamének. Viz výše uvedený snímek obrazovky.

Jak odstranit písmena z řetězců / čísel / buněk v aplikaci Excel?

Jak odstranit čísla z textových řetězců v aplikaci Excel?