Note: The other languages of the website are Google-translated. Back to English

Jak odstranit neanglické znaky ve sloupci aplikace Excel?

Například , zde je seznam jmen, který obsahuje některé neanglické znaky. Jak můžete rychle odstranit buňky obsahující neanglické znaky v aplikaci Excel?

Odstraňte řádky obsahující neanglické znaky pomocí VBA

Odebrat neanglické znaky z řetězce odstraněním znakůdobrý nápad3


Odstranit řádky obsahují neanglické znaky podle VBA

Zde je VBA, který může odstranit řádky, které obsahují neanglické znaky v aplikaci Excel.

1. Aktivujte list obsahující znaky, které chcete odebrat, a stiskněte Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte níže uvedený kód do Modul.

VBA: Odstraňte neanglické znaky

Sub RemoveNonEnglish()
'UpdatebyExtendoffice20171204
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim xRows As Long
    Dim xAsc As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Select single column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    For I = 1 To xRows
        Set xCell = xRg.Offset(I - 1)
        If xCell.Value <> "" Then
            For J = 1 To Len(xCell.Value)
                xAsc = Asc(UCase(Mid(xCell.Value, J, 1)))
                If xAsc < 65 Or xAsc > 90 Then
                    xCell.EntireRow.Delete
                    I = I - 1
                    Exit For
                End If
            Next
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Completed...", vbInformation
End Sub

doc odstranit neanglický znak 1

3. lis F5 v rozbalovacím dialogovém okně vyberte seznam sloupců, které chcete použít.
doc odstranit neanglický znak 2

4. cvaknutí OK > OKa poté byly odstraněny řádky obsahující neanglické znaky.
doc odstranit neanglický znak 3

doc odstranit neanglický znak 4 doc šipka vpravo doc odstranit neanglický znak 5

Poznámka: tento VBA funguje pouze pro jeden sloupec.


Odebrat neanglické znaky z řetězce odstraněním znaků

Pokud chcete z řetězce odstranit neanglické znaky, jak je ukázáno níže, můžete použít Kutools pro ExcelJe Odebrat znaky funkci rychle dokončit.

doc odstranit neanglický znak 6 doc šipka vpravo doc odstranit neanglický znak 7
Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Excel, prosím, postupujte takto:(Zdarma ke stažení Kutools pro Excel nyní!)

1. Vyberte požadovaný rozsah a klikněte Kutools > text > Odebrat znaky. Viz snímek obrazovky:
doc odstranit neanglický znak 8

2. Kontrola Ne-alfa pouze v Odebrat znaky V dialogu můžete vidět výsledek v Náhled jako první.
doc odstranit neanglický znak 9

3. cvaknutí Ok, neanglické znaky byly odstraněny z řetězců.
doc odstranit neanglický znak 7


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj. Použil jsem to právě k odstranění čínských znaků ze seznamu posádky, ale také to odstranilo mezery mezi jmény alfa. Doufejme, že existuje možnost odstranit nealfa znaky, ale v procesu vynechat mezery.
Tento komentář byl moderátorem webu minimalizován
Jak se v essy zbavím neanglických znaků, i když jsem smazal čárky, tečky, apostrofy atd....ale stále se objevují?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Husama Abass, popiš mi prosím podrobněji svou otázku, nerozumím tomu jasně.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL