VBA设置单元格数据验证失败：含INDIRECT&MATCH的公式无法生效

你的问题出在两个核心点上：

1. 公式参数分隔符不兼容：VBA中编写公式必须使用英文逗号（,）作为参数分隔符，而你手动设置时用的分号（;）是区域语言设置下的分隔符，VBA无法识别。
2. 目标区域定位错误：你代码中设置的是第13列（M列）的验证，但实际需要配置的是N3单元格（第14列）。

修正后的VBA代码如下：

Dim Formula_str As String
Formula_str = "=INDIRECT(""Cabletype_""&MATCH(M3,Cabletype_Names)&""_Size"")"

With Worksheets(Tablenname).Range("N3").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:=xlEqual, Formula1:=Formula_str
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .errorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

修改说明 #

• 将MATCH(M3;Cabletype_Names)中的分号替换为逗号，符合VBA的公式语法规范
• 将Columns(13)改为Range("N3")，精准定位到需要设置验证的目标单元格
• 保留了你原有的引号转义写法（""代表公式中的单个双引号），这部分逻辑是正确的

调整后，数据验证即可像手动设置时一样正常工作，根据M3的电缆名称动态匹配对应的尺寸列表。

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