VBA将单元格分配为数组公式

Question

我有一个名为“总计”的工作表，我必须重复该工作表，其中包含一个数组公式。 创建副本并重命名副本时，不再将数组公式作为数组输入。

当我录制宏时，其外观如下所示。

Range("B55").Select
    Selection.FormulaArray = _
        "=IF(R1C1=""Total"",INDEX('[All_File.xlsm]Sheet1'!R4C5:R8C5,MATCH(R[-53]C,'[All_File.xlsm]Sheet1'!R4C2:R8C2,0)),INDEX('[All_File.xlsm]Sheet1'!R5,MATCH(R1C1&""Groups"",'[All_File.xlsm]Sheet1'!R4&'[All_File.xlsm]Sheet1'!R3,0)))"

与此相关的问题是它在公式中引用了文件。 文件引用可以更改，因此此录制的宏将不起作用。

有没有一种选择单元格并将其作为数组输入的方法？

例如：

 Range("B55").Select
        Selection.FormulaArray

该单元格正在被选择并作为数组输入。 再次，我与录制的宏有关的问题是它正在存储文件名，该文件名将更改，因此无法再次使用录制的宏。

Answer 1

您可以在添加公式之前替换文件名：

Dim f As String, myFile

f = "=IF(R1C1=""Total"",INDEX('[{file}]Sheet1'!R4C5:R8C5,MATCH(R[-53]C," & _ 
    "'[{file}]Sheet1'!R4C2:R8C2,0)),INDEX('[{file}]Sheet1'!R5," & _ 
    "MATCH(R1C1&""Groups"",'[{file}]Sheet1'!R4&'[{file}]Sheet1'!R3,0)))"

myFile = 'get your filename here...    

Range("B55").FormulaArray = Replace(f, "{file}", theFilename)