VBA中INDEX+MATCH数组公式报错求助：匹配坐标获取地图名称

先给你修正后的可用代码：

ActiveCell.FormulaArray = "=INDEX(Map_Data!A2:A88,MATCH(1,(Map_Data!B2:B88<=" & Eastings & ")*(Map_Data!C2:C88>" & Eastings & ")*(Map_Data!D2:D88<=" & Northings & ")*(Map_Data!E2:E88>=" & Northings & "),0),1)"

关键修改点说明： #

• 移除数值的双引号：Eastings和Northings是坐标数值，不需要用"""包裹，否则Excel会把它们识别成文本，既会导致范围比较逻辑失效，还会破坏数组公式的结构。
• 补全闭合括号：原公式末尾少了一个)，数组公式要求括号完全配对，这是触发全局错误的核心原因之一。
• 简化单元格引用：直接用ActiveCell.FormulaArray即可，不用写成Range(ActiveCell)，后者属于冗余写法，反而容易引发引用问题。

额外排查建议： #

• 确认Eastings和Northings变量是数值类型，如果是从单元格读取的，记得用CDbl()转换，比如Eastings = CDbl(Range("指定单元格").Value)。
• 如果仍报错，可先把公式字符串打印到VBA即时窗口（用Debug.Print 你的公式字符串），复制到Excel单元格手动按Ctrl+Shift+Enter测试，验证公式本身是否能正常运行，再排查变量传递问题。

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