VBA设置动态数据验证下拉列表报错：应用程序定义或对象定义错误

核心错误原因 #

你直接将单元格对象与字符串拼接，wsSumm.Cells(5, LastCol)返回的是单元格对象而非地址文本，导致生成的验证公式格式无效，触发"应用程序定义或对象定义错误"。

其他潜在问题及修正点 #

• 地址获取错误：需使用.Address方法提取单元格的地址字符串，跨工作表引用时要确保地址格式正确。
• LastCol获取逻辑隐患：原代码Range("B5").End(xlToRight).Column在B5右侧无数据时会跳到工作表最后一列（XFD），建议改用从行尾向左查找的方式，更可靠。
• 数据类型溢出风险：Integer的最大值为32767，虽然Excel列数最大为16384，但改用Long类型更稳妥，避免后续扩展时溢出。
• 多余验证参数：xlValidateList类型的验证不需要Operator:=xlBetween参数，移除后可避免不必要的冲突。

修正后的代码 #

Dim i As Long
Dim LastCol As Long

' 从行尾向左查找，获取第5行最后一个有数据的列号
LastCol = wsSumm.Cells(5, wsSumm.Columns.Count).End(xlToLeft).Column

' 确保至少取到B列（避免无数据时LastCol小于2）
If LastCol < 2 Then LastCol = 2

For i = (NumScenariosRow + 4) To (NumScenariosRow + NumScenarios - 1)
    With CtrlPanel.Range("B" & i).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Formula1:="=Summary!$B$5:" & wsSumm.Cells(5, LastCol).Address(RowAbsolute:=True, ColumnAbsolute:=True)
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
Next i

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