excel 中如何在宏(VBA)中引用match数组公式？

Question

是这样，我需要使用宏计算一行中第一个不为0的列的位置。

在excel中，我使用了数组公式：{=MATCH(TRUE,D13:AM13<>0,0)} 在excel表格中可以正常计算。
在VBA里想要引用这个公式，写成：
Sheets(1).Cells(13, 46) = "=match(true,r13c4:r13c39<>0,0)+3" 不能正确计算，显示#value!
如果增加{}，则显示公式内容，不能计算。
写成：
Sheets(1).Cells(13, 47) = Application.WorksheetFunction.Match(True, Sheets(1).Range("D" & 13 & ":AM" & 13) <> 0, 0) + 3
报错"13"类型不匹配。

求助高手，在VBA中如何能让数组公式正常计算，谢谢！！
补充问题：
如果我需要在for循环中使用match数组公式，
相当于{=MATCH(TRUE,D13:AM13<>0,0)} 公式中13为变量，用j表示；

则在VBA中应该如何写？
感激不尽！

Answer 1

在你的原来的正确的公式的位置，录制宏，然后编辑一下公式，然后你去看看公式对应的录制宏就明白了。
祝顺利。

Answer 2

Sheets(1).Cells(13, 46).FormulaArray = "=MATCH(TRUE,D13:AM13<>0,0)"

用上面的语句才能写数组公式。追问

谢谢！

再麻烦问下 如果我的行数是变量 定义为j，
那么在VBA里面要怎么写？

追答

Sheets(1).Cells(j, 46).FormulaArray = "=MATCH(TRUE,D" & j & ":AM" & "j" & "0,0)"
是这个意思吗？

本回答被提问者采纳