Excel VBA调用Evaluate函数报错2029(#NAME)问题求助

• 核心原因是VBA变量未正确拼接进Evaluate的公式字符串：Evaluate接收的是Excel可直接解析的公式文本，你将sSearchValue、sSearchState这些VBA变量名直接写在双引号包裹的字符串内，Excel会将其识别为工作表自定义名称或函数，查找失败就触发2029 #NAME错误。
• 次要原因为MAXIFS参数逻辑错误：
  1. 你定义的条件区域sSearchState = "'PVC'!$C$6"是单个单元格，而非与E列统计范围对应的整段C列区域，无法匹配所有行的州缩写
  2. MAXIFS第三个参数应为要匹配的州缩写值（比如"CA"），你错误填入了条件区域变量
• 额外注意：MAXIFS仅支持Excel 2019/365及以上版本，若使用更低版本的Excel也可能触发函数识别类的#NAME错误。

步骤1：修正变量定义 #

调整条件区域的范围，保证和E列的统计范围一致：

' 最大值统计区域：E2到最后一行
sSearchValue = "'PVC'!$E$2:$E$" & lastrow
' 条件匹配区域：C2到最后一行，和E列范围对应
sSearchState = "'PVC'!$C$2:$C$" & lastrow
' 要匹配的州缩写
sStateAbbr = "CA"

步骤2：修正Evaluate的公式拼接 #

将VBA变量的值拼接进公式字符串，字符串类型的匹配条件需要用双引号转义包裹：

' 优化写法：用MAX直接兜底1，不需要两次计算MAXIFS
vStateSeats = Evaluate("MAX(MAXIFS(" & sSearchValue & "," & sSearchState & ",""" & sStateAbbr & """),1)")

如果需要兼容旧版本Excel，可替换为兼容所有版本的数组公式写法：

' 兼容旧版Excel的写法
vStateSeats = Evaluate("MAX(IF(" & sSearchState & "=""" & sStateAbbr & """," & sSearchValue & ",0))")
vStateSeats = IIf(vStateSeats > 0, vStateSeats, 1)

额外优化建议（非必须） #

你当前的变量声明存在隐式Variant问题：VBA中一行Dim声明多个变量时，每个变量都需要单独指定类型，否则未指定的会默认为Variant。比如：

' 原写法只有lStateNo是Long类型，其余均为Variant
Dim lNoSeats, lG2, lastrow, lStateRow, lStateSeats, lStateNo As Long
' 修正后写法
Dim lNoSeats As Long, lG2 As Long, lastrow As Long, lStateRow As Long, lStateSeats As Long, lStateNo As Long

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