Jak odstranit číselné znaky z buněk v aplikaci Excel?
Říká, že máte pracovní list obsahuje spoustu takových informací "James987den", data obsahují alfa znaky i číselné znaky a chcete zachovat alfa znaky a odstranit číselné znaky pro všechna taková data. Například převod "James987den" na "Jamesden". Existují nějaké rychlé způsoby, jak se s tím vypořádat?
Odstraňte číselné znaky pomocí kódu VBA
Rychlé odstranění číselných znaků pomocí Kutools for Excel
![]() | ![]() | ![]() |
Odstraňte číselné znaky pomocí kódu VBA
Pokud jste obeznámeni s kódem VBA, můžete použít tuto metodu s následujícími kroky:
1. Klikněte na „Vývojář“ > „Visual Basic“ nebo pomocí zkratek („ALT“ + „F11“) v Excelu aktivujte okno Microsoft Visual Basic pro aplikace a klikněte na „Vložit“ > „Modul“.
2. Vložte následující kód do modulu:
Sub RemoveNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[0-9.]" Then
xStr = ""
Else
xStr = xTemp
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
4. Poté klikněte na tlačítko "Spustit" pro použití kódu. Na obrazovce se objeví dialogové okno, můžete vybrat rozsah pro odstranění všech číselných znaků. viz snímek obrazovky:
5. Klikněte na "OK", všechny číselné znaky byly odstraněny.
Rychlé odstranění číselných znaků pomocí Kutools for Excel
Nástroj „Smazat znaky“ z „Kutools for Excel" je mocný nástroj pro mazání více typů znaků.
"Kutools for Excel„: s více než 300 praktickými doplňky pro Excel, zdarma k vyzkoušení bez omezení po dobu 30 dnů.“ Získat nyní
Krok 1. Vyberte rozsah, se kterým chcete pracovat.
Krok 2. Klikněte na „Kutools„ > „Text“ > „Odebrat znaky“, v dialogovém okně zaškrtněte „Číselné“, viz snímek obrazovky:
Krok 3. Klepnutím na „OK“ nebo „Použít“ odstraníte číselné znaky v rozsahu.
Nejlepší nástroje pro produktivitu v kanceláři
Vylepšete si své excelové dovednosti s Kutools for Excela 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 výrazně vám usnadňuje 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!