如何防止在 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

注意：在上述程式碼中，您可以將範圍 A1:A100 修改為您自己的範圍，以防止輸入特殊字元。該範圍位於指令碼 Private Const FCheckRgAddress As String = "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 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 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 詳細資訊……免費下載……