VBA实现Excel数据验证：输入非列表值无报错如何解决？

你的问题核心是给列表类型的数据验证错误添加了Operator参数，这个参数仅适用于数值、日期类需要范围判断的验证场景，对列表验证完全无效，甚至会干扰验证规则的正常生效。

解决要点： #

• 移除多余的Operator参数：列表验证不需要指定Operator（比如xlBetween或xlEqual），这个参数会破坏列表验证的逻辑。
• 确认命名区域有效性：确保DataVStatus和DataVInvoicingMonths这两个命名区域真实存在，且包含你要限制的选项（如A、B）。
• 保留正确的提示样式：xlValidAlertStop是正确的设置，它会在用户输入无效值时弹出阻止提示。

修正后的VBA代码： #

Sub ChangeVersionDetails()
    Application.ScreenUpdating = False

    Dim LastRow As Long
    Dim LastRowOne As Long
    Dim LastRowEnd As Long

    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    LastRowOne = LastRow + 1
    LastRowEnd = Cells(Rows.Count, 1).End(xlDown).Row
    
    ' 删除旧验证规则
    Range("G11:G" & LastRow).Validation.Delete
    Range("I11:T" & LastRow).Validation.Delete
    
    ' 添加列表验证（移除无效的Operator参数）
    Range("G11:G" & LastRow).Validation.Add _
        Type:=xlValidateList, _
        AlertStyle:=xlValidAlertStop, _
        Formula1:="=DataVStatus"
    Range("I11:T" & LastRow).Validation.Add _
        Type:=xlValidateList, _
        AlertStyle:=xlValidAlertStop, _
        Formula1:="=DataVInvoicingMonths"
    
    ' 删除新增行的验证规则
    Range("G" & LastRowOne & ":G" & LastRowEnd).Validation.Delete
    Range("I" & LastRowOne & ":T" & LastRowEnd).Validation.Delete

    Application.ScreenUpdating = True
End Sub

另外代码里LastRowOne直接用LastRow + 1简化，避免重复调用单元格查找，提升运行效率。

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