VBA中复制粘贴数组公式的问题答案

【问题标题】：Problem with Copy Pasting Array Formula in VBAVBA中复制粘贴数组公式的问题
【发布时间】：2020-07-26 10:12:12
【问题描述】：

我正在尝试输入一个 vba 公式，如果这些值属于特定类别，它可以帮助我找到一系列单元格的中位数。

这是带有数据的工作表示例：

这是我想放入单元格 B2 中的代码，然后能够将其拖到 B7：

=MEDIAN(IF(F2:F100=A2,G2:G100),"NA"))

我尝试了无数方法，但找不到解决办法。

提前感谢您的帮助。马扬克

【问题讨论】：

这能回答你的问题吗？ Help needed with Median If in Excel
如果您使用的是 VBA，您可以 edit 使用您尝试过的代码提出您的问题吗？
您的公式有太多) 应该是=MEDIAN(IF(F2:F100=A2,G2:G100,"NA")) 但,"NA" 也可以删除。 :=MEDIAN(IF(F2:F100=A2,G2:G100))
您帖子中的 VBA 在哪里？请展示您尝试过的一种或几种无数方法以及发生的具体问题（错误/不希望出现的结果）。

标签： excel vba

【解决方案1】：

对于 Vba，请尝试使用 FormulaArray 属性。

Sheet1.Range("B2").FormulaArray = "=MEDIAN(IF(I:I=A2,J:J))"
Sheet1.Range("B2").Copy
Sheet1.Range("B3:B4").PasteSpecial Paste:=xlPasteFormulas

【讨论】：