Question

我想弄清楚的问题有点复杂和详细，但我会尝试用一个例子来简化它。

我希望使用vba来使用条件语句更改数组公式。代码的示例如下所示

If (InStr(1, Range("E" & i).Value, "X")) > 0 Then
 With outputSheet
  Range("I" & i).FormulaArray = Sumproduct(('Sheet1'!$A$57:$A$104=$B2)*('Sheet1'!$E$56:$AZ$56=$H2),'Sheet1'!$E$57:$AZ$104)
  End With
  Else [Same code as above for Array formula]
  End If

最初我使用以下代码将Array公式复制下来然后使用它我不能使用条件语句，其中公式根据单元格是动态的。

 Range("G2").AutoFill .Range("G2:G" & OutputLastRow)

但是，如果我能以某种方式将$ B2变成B＆amp; i那么那对我来说就可以了。

在高层次上，我们的想法是输出单元会查看同一行和不同列中的某些条件，并根据条件更改数组公式。它将为每个单元格查看它并向下移动直到它到达最后一行

有关如何解决此问题的任何建议。我希望问题很清楚。非常感谢!!

使用VBA

0 个答案: