VBA如何限制指定单元格区域内特定字符的键入与粘贴

要同时拦住手动键入、粘贴两种输入路径，避免普通数据验证被粘贴操作绕过去，按下面的步骤配置即可：

• 先明确管控规则边界
  • 管控区域：示例为第1行、第3列的全部单元格，实际使用时可以改成你需要的任意单元格范围
  • 禁用字符：示例为半角逗号,、大括号{}、半角双引号、全角单/双引号，可按需增删字符
• 第一层拦截：配置基础数据验证
  选中目标管控区域，新建数据验证规则，类型选「自定义」，公式栏输入=SUMPRODUCT(--ISNUMBER(SEARCH({",","{","}",""""},A1)))=0，注意公式里的A1要替换成你选中区域里高亮的活动单元格；再切到「出错警告」标签，设置提示语为「输入内容包含禁用字符，请修改后重试」，这层可以拦住绝大多数手动输入的违规内容。
• 第二层拦截：添加宏代码防粘贴绕过
  普通数据验证拦不住带格式粘贴、批量粘贴的违规内容，需要加一段工作表事件代码补全逻辑：
  1. 按Alt+F11打开VBA编辑器，在左侧工程栏双击需要管控的工作表
  2. 在弹出的代码窗口粘贴如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ctrlRange As Range
    Dim banChars As Variant
    Dim i As Long
    ' 自定义管控范围，示例为第1行+第3列，可自行修改
    Set ctrlRange = Application.Union(Rows(1), Columns(3))
    ' 自定义禁用字符列表，可自行增删
    banChars = Array(",", "{", "}", """", "“", "”", "‘", "’")
    
    If Not Application.Intersect(Target, ctrlRange) Is Nothing Then
        For i = LBound(banChars) To UBound(banChars)
            If InStr(1, Target.Text, banChars(i), vbTextCompare) > 0 Then
                Application.EnableEvents = False
                Target.ClearContents
                Application.EnableEvents = True
                MsgBox "输入包含禁用字符，内容已清空，请重新输入", vbExclamation
                Exit Sub
            End If
        Next i
    End If
End Sub

注意：加完代码后要把文件存为.xlsm后缀的启用宏格式，打开文件时记得选择「启用宏」，不然粘贴拦截的逻辑不会生效。

• 最终效果：管控范围内只要输入/粘贴的内容包含预设禁用字符就会被拦截清空，不含禁用字符的内容可以正常输入；管控范围外的单元格不受任何输入限制。

内容的提问来源于stack exchange，提问作者Finntech