Excel 2013中IF与MAX公式的VBA实现无结果问题求助

核心错误点 #

对比手动公式和VBA生成的公式，存在两处语法错误：

• ISNUMBER函数括号未闭合：手动公式中ISNUMBER(I6)是完整调用，但VBA代码拼接时，在ISNUMBER(和单元格地址后未添加闭合)，直接衔接第二个IF参数，导致公式语法失效。
• VALUE函数括号未闭合：手动公式中VALUE(I6)是完整调用，VBA代码拼接时，在VALUE(和单元格地址后直接接比较运算符=，未闭合VALUE的括号，导致比较逻辑错误。

修正后的VBA代码 #

Dim MyRange As Range
Set MyRange = Range("D5").Offset(1, 1 + 3).Resize(m + 1, 1)
Range("D5").Offset(1, 1 + 6).Formula = "=IF(ISNUMBER(" & Range("D5").Offset(1, 1 + 4).Address(0, 0) & "),IF(VALUE(" & Range("D5").Offset(1, 1 + 4).Address(0, 0) & ")=" & Range("D5").Offset(1, 3 + 5).Address(1, 1) & ",MAX(" & MyRange.Address & "),NA()),NA())"

验证说明 #

修正后的代码会生成与手动公式结构完全一致的公式：

• 先判断目标单元格是否为数字
• 若是，再判断该单元格值是否等于指定单元格的值
• 满足条件则返回指定区域的最大值，否则返回#N/A

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