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

V mnoha případech se uživatelé Excelu setkávají s textovými řetězci, které jsou přeplněné nechtěnými čísly, která potřebují odstranit, aby se data uklidila. Ať už připravujete data k analýze nebo zajišťujete, že váš text odpovídá specifickému formátu, odstranění čísel může být zásadní. Tento článek popisuje několik metod, včetně přímého vzorce, použití Kutools pro Excel a vlastního řešení VBA k efektivnímu odstranění čísel z textových řetězců.

• Odstraňte čísla z textových řetězců pomocí vzorce
• Dávkové odstranění čísel z textových řetězců pomocí Kutools pro Excel
• Odeberte čísla z textových řetězců pomocí funkce definované uživatelem

Odstraňte čísla z textových řetězců pomocí vzorce

Pro ty, kteří dávají přednost používání nativních funkcí Excelu, nabízí následující maticový vzorec jednoduché řešení. Pro ty, kteří neznají funkce Excelu, je však tento vzorec příliš dlouhý a obtížně se s ním manipuluje.

1. Vyberte, kde chcete zobrazit vyčištěný text, například v tomto případě C2.
2. Zadejte následující maticový vzorec a stiskněte Ctrl + Shift + Enter.

   =TEXTJOIN("", TRUE, IF(ISNUMBER(--MID(A2, ROW(INDIRECT("1:" & LEN(A2))), 1)), "", MID(A2, ROW(INDIRECT("1:" & LEN(A2))), 1)))

   
   Ve vzorci je A2 buňka obsahující textový řetězec. Nahraďte jej prosím svou vlastní buňkou.
3. Vyberte buňku výsledku a přetáhněte její rukojeť výplně dolů, abyste získali zbytek výsledků.
   

Dávkové odstranění čísel z textových řetězců pomocí Kutools pro Excel

Odeberte čísla z textových řetězců pomocí funkce definované uživatelem

Pro ty, kteří mají talent na kódování, nabízí uživatelsky definovaná funkce (UDF) ve VBA přizpůsobitelné a opakovaně použitelné řešení.

1. Současným stisknutím kláves Alt + F11 otevřete editor VBA.
2. Přejděte na Vložit > Modul a vložte následující kód VBA
   VBA: Odebrání čísel z textových řetězců v aplikaci Excel

   Function RemoveNumbers(Txt As String) As String
   With CreateObject("VBScript.RegExp")
   .Global = True
   .Pattern = "[0-9]"
   RemoveNumbers = .Replace(Txt, "")
   End With
   End Function

3. Zadejte následující vzorec do prázdné buňky, kde chcete zobrazit vyčištěný text. Nezapomeňte nahradit A2 odkazem na buňku vašeho textového řetězce.

   =RemoveNumbers(A2)

   

Odstranění čísel z textových řetězců v aplikaci Excel lze provést různými metodami v závislosti na vaší preferenci jednoduchosti nebo na nástrojích, které máte k dispozici. Každá metoda uvedená v tomto příspěvku zajišťuje, že vaše textové řetězce jsou efektivně vyčištěny, čímž se zvyšuje přehlednost a použitelnost vašich dat.

Ukázka: Odebrání čísel z textových řetězců v aplikaci Excel

Související články: