Jak extrahovat text pouze z alfanumerického řetězce v aplikaci Excel?
Pokud máte v každé buňce v aplikaci Excel dlouhý seznam více alfanumerických řetězců a chcete z nich extrahovat pouze textové řetězce, můžete postupovat následovně.
Extrahujte text pouze z alfanumerického řetězce pomocí definované funkce v aplikaci Excel
Extrahujte text pouze z alfanumerického řetězce pomocí programu Kutools pro Excel
Extrahujte text pouze z alfanumerického řetězce pomocí definované funkce v aplikaci Excel
Pomocí definované funkce extrahujte text pouze z alfanumerického řetězce v aplikaci Excel následujícím způsobem:
1. Vyberte buňku sloupce, který chcete vybrat, a stiskněte Alt + F11 k otevření Microsoft Visual Basic pro aplikace okno.
2. Ve vyskakovacím okně klikněte na Vložit > Modul, pak vložte následující kód VBA do modulu.
VBA: Extrahujte pouze text
Function TextOnly(pWorkRng As Range) As String
'Updateby20140515
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
For xIndex = 1 To VBA.Len(xValue)
If Not VBA.IsNumeric(VBA.Mid(xValue, xIndex, 1)) Then
OutValue = OutValue & VBA.Mid(xValue, xIndex, 1)
End If
Next
TextOnly = OutValue
End Function
3. Uložte kód a zavřete okno a zadejte tento vzorec = Pouze text (A1) (A1 je první buňka řádku v seznamu, ze které chcete extrahovat pouze text) do prázdné buňky, stiskněte vstoupit tlačítko, potom vyplňte úchyt do požadovaného rozsahu.
Extrahujte text pouze z alfanumerického řetězce pomocí programu Kutools pro Excel
Kutools pro Excel's Odebrat znaky Tato funkce vám také pomůže extrahovat text pouze v aplikaci Excel.
Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní
1. Vyberte rozsah, ze kterého chcete extrahovat pouze text, a klikněte na Kutools > Text > Odebrat znaky. Viz snímek obrazovky:
2. V Odebrat znaky dialog, zkontrolujte Číselný a Netiskněte zaškrtávací políčka. Viz snímek obrazovky:
3. cvaknutí Ok, pak budou odstraněny všechny netextové znaky, viz screenshot:
Tip: Protože toto použití změní vaše původní data, měli byste nejprve zkopírovat původní data na jiné místo.
Další informace o odebrání znaků.
Relativní články:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!