跳到主要內容

如何在Excel列中刪除非英文字符?

例如,,這裡是包含一些非英語字符的名稱列表。 如何在Excel中快速刪除包含非英文字符的單元格?

通過VBA刪除包含非英文字符的行

通過刪除字符從字符串中刪除非英語字符好主意3


通過VBA刪除包含非英文字符的行

這是一個VBA,可以刪除Excel中包含非英語字符的行。

1.激活包含要刪除的字符的工作表,然後按 Alt + F11鍵 啟用 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下代碼粘貼到 模塊.

VBA:刪除非英文字符

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移除非英文字符1

3。 按 F5 鍵,以在彈出對話框中選擇要使用的列列表。
doc移除非英文字符2

4。 點擊 OK > OK,然後刪除了包含非英語字符的行。
doc移除非英文字符3

doc移除非英文字符4 doc箭頭向右 doc移除非英文字符5

備註:此VBA僅適用於一列。


通過刪除字符從字符串中刪除非英語字符

如果要從字符串中刪除非英語字符(如下面的屏幕截圖所示),則可以應用 Excel的Kutools刪除字符 快速完成的功能。

doc移除非英文字符6 doc箭頭向右 doc移除非英文字符7
Excel的Kutools, 與以上 300 方便的功能,使您的工作更加輕鬆。 

安裝後 Kutools for Excel,請執行以下操作:(立即免費下載Kutools for Excel!)

1.選擇所需範圍,然後單擊 庫工具 > 文本 > 刪除字符。 看截圖:
doc移除非英文字符8

2。 檢查 非字母 僅在 刪除字符 對話框中,您可以在 預覽 第一。
doc移除非英文字符9

3。 點擊 Ok,非英文字符已從字符串中刪除。
doc移除非英文字符7

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do i get rid of non-english characters in an essy even if i deleted comas, fullstops, apostrophes etc.....but keeps on popping?
This comment was minimized by the moderator on the site
Hi, Husama Abass, please give me more description about your question, I do not get it clearly.
This comment was minimized by the moderator on the site
Hi. I used this just now to remove Chinese characters from may crew list but it also removed the spaces in between the alpha names. Hoping that there is an option to remove non-alpha characters but leave out spaces in the process.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations