Jak odstranit nečíselné znaky z buněk v aplikaci Excel?
Předpokládejme, že máte list se spoustou takových dat ABCD4578124YUIOHa chcete odstranit pouze nečíselné znaky ABCDYUIOH ale ponechejte číselné znaky v buňkách. Tyto znaky můžete samozřejmě odstraňovat jeden po druhém, ale právě zde se můžete rychle zbavit nečíselných znaků z buněk následujícím způsobem:
Odstraňte nečíselné znaky pomocí kódu VBA
Šikovný nástroj k odstranění nečíselných znaků jedním kliknutím
Odstraňte nečíselné znaky pomocí kódu VBA
Chcete-li odstranit nečíselné znaky z rozsahu s kódem VBA, postupujte takto:
1. klikněte Vývojka > Visual Basic k otevření Microsoft Visual Basic pro aplikace okno. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula poté zkopírujte a vložte následující kódy do modulu:
VBA: Odeberte všechny nečíselné znaky
Sub RemoveNotNum()
'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 = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub2. Poté klikněte na tlačítko 
tlačítko pro spuštění kódu, ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah s nečíselnými znaky, které chcete odebrat, a poté klikněte na OK knoflík. Viz screenshot:
3. Poté budou odstraněny všechny nečíselné znaky ve vybraném rozsahu.
Pokud jsou čísla s desetinnými čárkami, můžete použít následující VBA:
Sub RemoveNotNum()
'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 = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Výsledky můžete vidět na následujícím obrázku obrazovky:
Šikovný nástroj k odstranění nečíselných znaků jedním kliknutím
Pro odstranění nečíselných znaků v rozsahu Kutools pro ExcelJe Odebrat znaky nástroj to zvládne jedním kliknutím.
| Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, prosím, postupujte takto:
1. Zvýrazněte rozsah, který chcete odstranit nečíselnými znaky. Klepněte na Kutools > Text > Odebrat znaky.
2. V Odebrat znaky V dialogovém okně zaškrtněte Numerické možnost v Odebrat znaky v části a poté klikněte na ikonu OK or Podat žádost knoflík. A nečíselné znaky jsou z výběru okamžitě odstraněny. Viz screenshot:
Klikněte a stáhněte si Kutools pro Excel a bezplatnou zkušební verzi hned teď!
Podrobnější informace o Odebrat znaky aplikace Kutools pro Excel, navštivte Odebrat popis funkcí znaků.
Ukázka: Odstraňte z buněk číselné, abecední, netisknutelné nebo alfanumerické znaky
Související články:
- Odebrat alfa znaky z buněk
- Odstraňte číselné znaky z buněk
- Odstraňte z buněk netisknutelné znaky
- Odeberte z buněk znaky jiné než alfa
- Odeberte nealfanumerické znaky
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!
