如何防止在 Excel 中輸入特殊字符？

在某些情況下，我們只想在單元格中輸入字母或數字，並防止輸入特殊字符，例如 @#$%& 等。Excel 是否有函數可以在插入值時防止輸入特殊字符呢？

使用資料驗證防止特殊字符輸入

使用 VBA 代碼防止特殊字符輸入

使用 Kutools for Excel 防止特殊字符輸入

使用資料驗證防止特殊字符輸入

Excel 的資料驗證功能可以幫助您只允許輸入字母數字值。請按照以下步驟操作：

1. 選擇一個您想防止特殊字符輸入的區域。

2. 然後點擊 資料 > 資料驗證 > 資料驗證，參見截圖：

3. 在資料驗證對話框中，點擊 設定 標籤，並從 允許 下拉列表中選擇 自訂，然後在 公式文本框中輸入此公式 =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")))，參見截圖：

注意：A1 表示所選區域的第一個單元格（從左到右）。

4. 然後點擊 確定 關閉該對話框，現在，當您嘗試在應用了該選項的指定列中輸入包含特殊字符的值時，將收到以下警告消息。

使用 VBA 代碼防止特殊字符輸入

以下 VBA 代碼也可以幫助您在輸入文字值時防止特殊字符。

1. 按住 ALT + F11 鍵，打開 Microsoft Visual Basic for Applications 窗口。

2. 然後從左側的專案資源管理器中選擇您使用的活頁簿，雙擊它以打開模組，然後將以下 VBA 代碼複製並貼上到空白 模組中：

VBA 代碼：防止在 Excel 中輸入特殊字符

Private Const FCheckRgAddress As String = "A1:A100"
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140905
    Dim xChanged As Range
    Dim xRg As Range
    Dim xString As String
    Dim sErrors As String
    Dim xRegExp As Variant
    Dim xHasErr As Boolean
    Set xChanged = Application.Intersect(Range(FCheckRgAddress), Target)
    If xChanged Is Nothing Then Exit Sub
    Set xRegExp = CreateObject("VBScript.RegExp")
    xRegExp.Global = True
    xRegExp.IgnoreCase = True
    xRegExp.Pattern = "[^0-9a-z]"
    For Each xRg In xChanged
        If xRegExp.Test(xRg.Value) Then
            xHasErr = True
            Application.EnableEvents = False
            xRg.ClearContents
            Application.EnableEvents = True
        End If
    Next
    If xHasErr Then MsgBox "These cells had invalid entries and have been cleared:"
End Sub

注意：在上述代碼中，您可以更改 Private Const FCheckRgAddress As String = "A1:A100" 腳本中的範圍 A1: A100 為您想要防止特殊字符輸入的範圍。

3. 然後保存並關閉此代碼。現在，當您在範圍 A1:A100 中輸入帶有特殊字符的文字值時，輸入內容將立即被清除，並且您會收到以下警告消息。

使用 Kutools for Excel 防止特殊字符輸入

實際上，如果您有 Kutools for Excel -- 一款方便且多功能的工具，您可以通過其 限制輸入 功能快速防止在選定區域內輸入特殊字符，只需勾選即可。

安裝 Kutools for Excel 後，請按以下步驟操作：

1. 選擇您要防止輸入特殊字符的區域，然後點擊 Kutools > 限制輸入 > 限制輸入。參見截圖：

2. 在 限制輸入 對話框中，勾選 禁止輸入特殊字符 選項。參見截圖：

3. 點擊 確定，彈出一個對話框提醒您如果應用此功能將移除資料驗證，點擊 是 進入下一個對話框，它將提醒您該功能已在該部分生效。參見截圖：

4. 點擊 確定 關閉對話框，從現在開始，當您嘗試在選定區域內輸入特殊字符時，將彈出警告對話框。

提示：如果您想阻止在一列中輸入重複值，請嘗試使用 Kutools for Excel 的 防止重複項 功能，如下圖所示。立即下載並免費試用。

演示：使用 Kutools for Excel 防止特殊字符輸入

相關文章：

如何防止在 Excel 中輸入帶空格的值？

如何防止在 Excel 的一列中輸入重複條目？

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析 ｜生成程式碼 ｜ 創建自訂公式 ｜ 分析數據並生成圖表 ｜ 調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值 ｜ 刪除空行 ｜ 合併列或單元格且不遺失數據 ｜ 四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表 ｜依賴型下拉列表 ｜ 多選下拉列表...
	列管理器：添加指定數量的列 ｜ 移動列 ｜ 切換隱藏列的顯示狀態 ｜ 比較區域及列...
	精選功能：網格聚焦 ｜ 設計檢視 ｜ 增強編輯欄 ｜ 工作簿及工作表管理器 ｜ 資源庫（快捷文本） ｜ 日期提取器 ｜ 合併資料 ｜ 加密/解密儲存格 ｜ 按列表發送電子郵件 ｜ 超級篩選 ｜ 特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表 類型（甘特圖等）｜40+ 實用 公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多

使用 Kutools，語言任你選 — 支援英語、西班牙語、德語、法語、中文及超過40 種語言！

運用 Kutools for Excel，全面提升您的 Excel 技能，體驗前所未有的高效。 Kutools for Excel 提供超過300 項進階功能，讓您提升工作效率、節省時間。 點此尋找您最需要的功能...

查看更多 Kutools for Excel 詳情... 免費下載...

---

Office Tab 為 Office 帶來分頁介面，讓您的工作更加輕鬆簡單

• 在 Word、Excel、PowerPoint 中啟用分頁編輯與閱讀。
• 在同一視窗的新分頁中打開與創建多份文件，而非開啟新視窗。
• 提升您的生產力50%，每日可幫您減少數百次鼠標點擊！

查看更多 Office Tab 詳情... 免費下載...

---

所有 Kutools 外掛，一次安裝

Kutools for Office 套裝整合了 Excel、Word、Outlook 和 PowerPoint 的外掛，外加 Office Tab Pro，非常適合需要跨 Office 應用程式協同作業的團隊。

• 全合一套裝 — Excel、Word、Outlook及 PowerPoint 外掛 + Office Tab Pro
• 一鍵安裝，一份授權 — 幾分鐘完成設置（支援 MSI）
• 協同運作更順暢 — Office 應用間無縫提升生產力
• 30 天全功能試用 — 無需註冊、無需信用卡
• 最超值 — 一次購買，節省單獨外掛費用

查看更多 Kutools for Office 詳情... 免費下載...