Přejít k hlavnímu obsahu
 

Jak odstranit nečíselné znaky z buněk v Excelu?

Autor: Mandyzhou Naposledy změněno: 2024-06-18

Uživatelé Excelu se často setkávají s daty, která obsahují kombinaci čísel a nenumerických znaků, jako jsou písmena nebo symboly. Vyčištění těchto dat může být nezbytné pro další analýzu nebo vykazování. V této příručce prozkoumáme čtyři způsoby odstranění nenumerických znaků z buněk v Excelu, abychom zajistili, že vaše data budou čistá a použitelná.


Odeberte nečíselné znaky z buněk v Excelu

V této části představíme čtyři účinné metody odstranění nenumerických znaků z buněk aplikace Excel, přizpůsobené pro různé verze aplikace Excel a úrovně odborných znalostí uživatelů.


Odeberte nečíselné znaky z buněk v Excelu pomocí vzorce

Chcete-li odebrat nečíselné znaky z buněk v aplikaci Excel, můžete použít vzorec založený na TEXTJOIN funkce.

Krok 1: Vyberte buňku a použijte vzorec

V cele C2, použijte níže uvedený vzorec a stiskněte tlačítko vstoupit klíč k získání výsledku.

=TEXTJOIN("",TRUE,IFERROR(MID(A2,SEQUENCE(LEN(A2)),1)+0,""))+0
Auto TEXTJOIN funkce je k dispozici v Excelu 2019 a novějších. A SEKVENCE funkce je dostupná v Excelu 2021 a novějších. Pokud chcete snadnější způsob, jak dosáhnout cíle ve všech verzích Excelu, podívejte se na Pomocí Kutools AI Aide metoda nebo Pomocí úžasného nástroje metodu, kterou si představíme příště.
Krok 2: Použijte vzorec na další buňky a získejte všechny výsledky

Po výpočtu počátečního výsledku přetáhněte úchyt výplně z buňky vzorce (C2 v tomto příkladu) dolů aplikujte vzorec na další buňky a rozšíříte jej na buňku C8.

Vysvětlení vzorce:
  1. DÉLKA (A2): Zjistí délku řetězce v A2.
  2. SEQUENCE(DÉLKA(A2)): Vytvoří seznam čísel od 1 do délky řetězce. Každé číslo odpovídá pozici znaku v řetězci.
  3. STŘED(A2; SEKVENCE(DÉLKA(A2)); 1): Extrahuje každý znak z A2 jeden po druhém.
  4. +0: Pokusí se převést každý znak na číslo. Pokud znak není číslo, způsobí chybu.
  5. IFERROR(..., ""): Pokud převod znaku způsobí chybu (to znamená, že to není číslo), nahradí se prázdným řetězcem.
  6. TEXTJOIN("", TRUE, ...): Zkombinuje všechny znaky zpět do jednoho řetězce, vynechá všechny prázdné řetězce (nečíselné, které byly odstraněny).
  7. +0 na konci: Převede konečný řetězec čísel zpět na číselnou hodnotu.

Odstraňte nečíselné znaky z buněk v Excelu pomocí Kutools AI Aide

Kutools pro Excel's AI asistent Tato funkce nabízí bezkonkurenční pohodlí při čištění listů aplikace Excel bez námahy odstraněním nečíselných znaků. S pouhým jednoduchým vstupem od vás převezme tento výkonný nástroj řízení, automaticky analyzuje a provádí požadované úkoly bez nutnosti složitých vzorců. To nejen urychlí proces, ale také eliminuje potenciál chyb, což výrazně zvýší vaši produktivitu a přesnost. The AI asistent promění to, co by mohl být únavný manuální úkol, v bezproblémovou a efektivní operaci, což z něj činí základní výhodu pro každého uživatele Excelu, který chce optimalizovat své pracovní postupy.

Po stažení a instalace Kutools pro Excel, Klepněte na tlačítko Kutools AI > AI asistent k otevření Kutools AI asistent panel.

1. V Kutools AI Aid podokno, zadejte svůj požadavek jako text níže do pole chatu a klikněte Odeslat nebo stiskněte tlačítko vstoupit klíč k odeslání vašeho dotazu.

"Odeberte prosím nečíselné znaky z rozsahu A2:A8 v Excelu."

2. Jakmile nástroj analyzuje váš vstup, klikněte na Provést knoflík. Kutools AI Aide využije svou technologii AI ke zpracování vašeho požadavku a použije výsledky přímo v Excelu.

Tip: Chcete-li používat tuto funkci, měli byste nainstalovat Kutools pro Excel nejprve, prosím kliknutím stáhněte a získejte 30denní bezplatnou zkušební verzi nyní.


Odstraňte nečíselné znaky z buněk v Excelu pomocí úžasného nástroje

Pro efektivní čištění dat odstraněním nečíselných znaků v určeném rozsahu, Kutools pro ExcelJe Odebrat znaky nástroj poskytuje a jeden klik řešení. Tento výkonný nástroj zjednodušuje to, co může být často těžkopádný, a umožňuje vám rychle odstranit nežádoucí znaky z vašich dat a okamžitě zajistit čistší a použitelnější výsledky.

Poznámka: Použít toto Odebrat znaky Nejprve byste si měli stáhnout a nainstalovat Kutools pro Excel.

1. Po výběru rozsahu, ze kterého chcete odstranit nečíselné znaky, klepněte Kutools > Text > Odebrat znaky.

2. V Odebrat znaky V dialogovém okně zaškrtněte Numerické a klepněte na tlačítko OK. Poté jsou nečíselné znaky okamžitě odstraněny z výběru.

Tip: Chcete-li používat tuto funkci, měli byste nainstalovat Kutools pro Excel nejprve, prosím kliknutím stáhněte a získejte 30denní bezplatnou zkušební verzi nyní.


Odeberte nečíselné znaky z buněk v Excelu pomocí kódu VBA


Chcete-li odstranit nečíselné znaky z rozsahu s kódem VBA, postupujte takto:

Krok 1: Otevřete editor modulu VBA a zkopírujte kód
  1. Podržte stisknuté tlačítko ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.
  2. klikněte Vložit > Modul, poté zkopírujte a vložte následující kód do souboru Modul Okno.
  3. Kód VBA: Odstraňte 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 Sub
    
Krok 2: Spusťte kód
  1. Po vložení tohoto kódu stiskněte F5 klíč ke spuštění tohoto kódu.
  2. Při objevování Kutools pro Excel dialogovém okně vyberte rozsah, ze kterého chcete odebrat nečíselné znaky, a klepněte na OK.
Výsledek

Poté jsou odstraněny všechny nečíselné znaky ve zvoleném rozsahu.

Pokud vaše data obsahují čísla s desetinnými čárkami, můžete použít následující skript VBA:
  1. 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
    
  2. Výsledek