录制的VBA DataValidation宏运行出现Run Time error 1004问题求助

你的VBA宏出现1004错误，核心原因是Formula1里的Excel公式存在多处语法错误，宏录制器有时会生成参数不完整或格式错误的公式，下面是具体问题和修复方案：

原公式的问题点 #

1. 函数括号不匹配+参数缺失：OFFSET、INDIRECT等函数未正确闭合括号，公式结构混乱
2. MATCH函数参数冗余：MATCH仅需3个参数（查找值、查找区域、匹配类型），原公式多写了一个额外参数
3. COUNTIF函数参数顺序错误：COUNTIF正确格式为COUNTIF(区域, 条件)，原公式把条件和区域写反了
4. 结构化引用格式错误：表格引用的分隔符使用不当，且部分引用写法不符合规范

修复后的宏代码 #

Sub Macro1()
    With Selection.Validation
        .Delete
        ' 修复公式语法，确保函数参数完整、括号匹配
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
             Formula1:="=OFFSET(INDIRECT(""System_General_Cargo[[#Headers],[Location]]""),MATCH(B12,INDIRECT(""System_General_Cargo[Location]""),0)-1,0,COUNTIF(INDIRECT(""System_General_Cargo[Location]""),B12),1)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

修复说明 #

• 补全所有函数的闭合括号，确保公式结构合法
• 移除MATCH函数中多余的参数，符合函数语法
• 调整COUNTIF的参数顺序，恢复正确逻辑
• 修改结构化引用的分隔符（若你的Excel区域设置用分号作为参数分隔符，可改回分号）
• 修正OFFSET函数的参数组合，确保动态区域生成逻辑正确

内容的提问来源于stack exchange，提问作者Любомир Ламбов