如何從Excel中的單元格中刪除非數字字符？
假設您有一個包含大量此類數據的工作表 ABCD4578124YUIOH，而您只想刪除非數字字符 阿布杜伊但將數字字符保留在單元格中。 當然，您可以一一刪除那些字符，但是在這里，您可以按如下所示快速去除單元格中的非數字字符：
使用VBA代碼刪除非數字字符
一鍵刪除非數字字符的便捷工具
使用VBA代碼刪除非數字字符要使用VBA代碼刪除某個范圍內的非數字字符，請執行以下操作：
1. 點擊 開發商 > Visual Basic中 打開 適用于應用程序的Microsoft Visual Basic 窗口。 在里面 適用于應用程序的Microsoft Visual Basic 窗口中，單擊 插頁 > 模塊，然后將以下代碼復制并粘貼到模塊中：
VBA：刪除所有非數字字符
Sub RemoveNotNum()Updateby ExtendofficeDim Rng As RangeDim WorkRng As RangeOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)For Each Rng In WorkRngxOut = ""For i = 1 To Len(Rng.Value)xTemp = Mid(Rng.Value, i, 1)If xTemp Like "[0-9]" ThenxStr = xTempElsexStr = ""End IfxOut = xOut & xStrNext iRng.Value = xOutNextEnd SubCopy2。 然后點擊 按鈕運行代碼，在彈出 Kutools對于Excel 對話框中，選擇要刪除的非數字字符的范圍，然后單擊 OK 按鈕。 看截圖：
3。 然后，將刪除所選范圍內的所有非數字字符。
如果數字帶有小數點，則可以使用以下VBA：
Sub RemoveNotNum()Updateby ExtendofficeDim Rng As RangeDim WorkRng As RangeOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)For Each Rng In WorkRngxOut = ""For i = 1 To Len(Rng.Value)xTemp = Mid(Rng.Value, i, 1)If xTemp Like "[0-9.]" ThenxStr = xTempElsexStr = ""End IfxOut = xOut & xStrNext iRng.Value = xOutNextEnd SubCopy您可以看到如下屏幕截圖所示的結果：
一鍵刪除非數字字符的便捷工具要刪除范圍內的非數字字符， Kutools for Excel“ 刪除字符 實用程序可以一鍵完成它。
Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內.前往下載購買貝寶/ MyCommerce安裝后 Kutools for Excel，請執行以下操作：
1。 突出顯示您要刪除非數字字符的范圍。 請點擊 Kutools > 文本 > 刪除字符.
2。 在 刪除字符 對話框，檢查 非數值 在選項 刪除字符 部分，然后單擊 OK or 使用 按鈕。 并且非數字字符會立即從選擇中刪除。 看截圖：
點擊下載 Kutools for Excel 現在！
有關更多詳細信息 刪除字符 of Kutools for Excel，請訪問： 刪除字符功能描述。
演示：從單元格中刪除數字，字母，不可打印或字母數字字符Kutools for Excel：具有300多個方便的Excel加載項，可以在內，沒有任何限制。 立即下載并！相關文章：
從單元格中刪除字母字符從單元格中刪除數字字符從單元格中刪除不可打印的字符從單元格中刪除非字母字符刪除非字母數字字符最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
