Excel VBA数组公式使用索引匹配给出错误类型不匹配

编程问答 2022-08-15

问题描述

我正在尝试将Array公式添加到工作表上的Table列中。我正在使用索引匹配并拆分公式，因为它在所有文件名中都变得很大。我通过拆分将其用于代码的其他部分，并且可以正常工作（但是使用了不同的引用等）。

当我尝试将Match公式替换/插入到Index公式中时，我不断收到错误“类型不匹配”。当我手动执行操作（通过复制变量字符串值）时，它可以工作... 

ATPFile = Dir(DataPath & "\*ATP*COMBINED.xls*")
ATPFileF = DataPath & "\" & ATPFile

Set wb = Workbooks.Open(ATPFileF)

'Add ATP data from ATP raw data file
sheetname = Worksheets("ATP").Name

'Get last row with data in ATP file
Dim rowCountSource As Integer
Dim ATPRowRange As Range
Dim sFomrula2 As String

With wb.Worksheets("ATP")
    rowCountSource = .Cells(.Rows.Count,2).End(xlUp).Row
End With

ref = DataPath & "\[" & ATPFile & "]" & sheetname

sFormula = "=INDEX('" & ref & "'!$P$1:$P$" & rowCountSource & ",""X_X_X"",1)"
sFormula2 = "MATCH([@Article]&[@Site],('" & ref & "'!$B$1:$B$" & rowCountSource & ")&('" & ref & "'!$D$1:$D$" & rowCountSource & "),0)"

'Add ATP info
With ws.ListObjects("Table_DCvenSDCdata")
    With .ListColumns("ATP").DataBodyRange
        .NumberFormat = "General"
        With .Cells(1,1)
            .FormulaArray = sFormula
            .Replace """X_X_X""",sFormula2
        End With
        .FillDown
        .Value = .Value
    End With
End With

错误在.Replace """X_X_X""",sFormula2弹出

文件引用和名称均正确。我不确定比赛公式在哪里...

这是sFormula字符串：

=INDEX('C:\_Store\10.05.2020\[T MA0 ATP 18.08.2020.xls COMBINED.xls]ATP'!$P$1:$P$126,"X_X_X",1)

这是sFormula2字符串替换索引公式中的“ X_X_X”的原因：

MATCH([@Article]&[@Site],('C:\_Store\10.05.2020\[T MA0 ATP 18.08.2020.xls COMBINED.xls]ATP'!$B$1:$B$126)&('C:\_Store\10.05.2020\[T MA0 ATP 18.08.2020.xls COMBINED.xls]ATP'!$D$1:$D$126),0)

任何建议将不胜感激！

解决方法

尝试使用With块的此代码段以及前面提到的一些声明。

Dim oldStr As String,newStr As String

    oldStr = """X_X_X"""
    newStr = "sFormula2"

With ws.ListObjects("Table_DCvenSDCdata")
    With .ListColumns("ATP").DataBodyRange
        .NumberFormat = "General"
        With .Cells(1,1)
            .FormulaArray = sFormula
            .FormulaArray = Replace(.FormulaArray,oldStr,newStr)
        End With
        .FillDown
        .Value = .Value
    End With
End With

请参阅this相关链接。

,

我正在用提出的解决方案回答自己的问题。我敢肯定还有其他方法，但这是对我有用的最快，最简单的方法。正如@Scott Craner所述，由于255个字符的限制似乎是个问题，因此我进一步细分了公式。

现在更改的代码部分如下所示：

sFormula = "=INDEX('" & ref & "'!$P$1:$P$" & rowCountSource & ",""X_X_X"",1)"
sFormula2 = "MATCH([@Article]&[@Site],""X3""&""X4"",0)"
sFormula3 = "('" & ref & "'!$B$1:$B$" & rowCountSource & ")"
sFormula4 = "('" & ref & "'!$D$1:$D$" & rowCountSource & ")"

'Add ATP info
With ws.ListObjects("Table_DCvenSDCdata")
    With .ListColumns("ATP").DataBodyRange
        .NumberFormat = "General"
        With .Cells(1,1)
            .FormulaArray = sFormula
            .Replace """X_X_X""",sFormula2
            .Replace """X3""",sFormula3
            .Replace """X4""",sFormula4
        End With
        .FillDown
        .Value = .Value
    End With
End With
array-formulasexcelexceltype-mismatch