Jak odstranit všechny znaky po prvním / posledním prostoru z buněk v aplikaci Excel?

Tato část představí vzorce pro odstranění všech znaků za první nebo poslední mezerou v aplikaci Excel. Postupujte prosím následovně:

Odebrat všechny znaky za poslední mezerou

Vyberte prázdnou buňku, zadejte vzorec =LEFT(A2,FIND("^^",SUBSTITUTE(A2," ","^^",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))-1) (A2 je buňka, kde do ní odeberete všechny znaky za poslední mezerou ) a přetáhněte úchyt výplně do rozsahu, jak potřebujete.

Vzorec je příliš komplikovaný na to, abyste si ho pamatovali? Uložte vzorec jako položku automatického textu pro opakované použití jediným kliknutím v budoucnu! Přečtěte si více ...     Zkušební verze zdarma

A poté uvidíte všechny znaky po odstranění posledního místa v každé buňce. Viz screenshot:

Odstraňte všechny znaky za první mezerou

Vyberte prázdnou buňku, zadejte vzorec = VLEVO (A2; FIND (""; A2) -1) (A2 je buňka, kde do ní odstraníte všechny znaky za první mezerou) a přetáhněte úchyt výplně dolů do rozsahu, jak potřebujete.

Tato metoda představí program Kutools pro Excel Rozdělit jména nástroj pro rychlé odstranění všech znaků za první mezerou z buněk v aplikaci Excel.

1. Vyberte rozsah, ve kterém odstraníte všechny znaky za první mezerou v každé buňce, a klepněte na Kutools > Text > Rozdělit jména. Viz snímek obrazovky:

2. V úvodním dialogovém okně Rozdělit jména zaškrtněte pouze ikonu Jméno a klepněte na tlačítko Ok .

3. Potom zadejte první buňku cílového rozsahu do druhého dialogového okna Rozdělit jména a klepněte na OK .

A nyní uvidíte, že všechny znaky jsou odstraněny po prvním prostoru z každé buňky. Viz screenshot:

Můžete také použít funkci definovanou uživatelem a odstranit všechny znaky za posledním mezerou z buněk v aplikaci Excel. Postupujte prosím následovně:

1. lis Další + F11 současně otevřete okno Microsoft Visual Basic pro aplikace.

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

VBA: Odeberte všechny znaky za poslední mezerou v aplikaci Excel

Function RemoveAfterLastSpace(Txt As String) As String
With CreateObject("VBScript.RegExp")
.Pattern = "\s+\w+$"
RemoveAfterLastSpace = .Replace(Txt, "")
End With
End Function

4. Vyberte prázdnou buňku a zadejte vzorec = RemoveAfterLastSpace (A2) (A2 je buňka, kde do ní odstraníte všechny znaky za poslední mezerou) a přetáhněte úchyt výplně do rozsahu, jak potřebujete.

A poté uvidíte všechny znaky po odstranění posledního prostoru z každé buňky. Viz screenshot:

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

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