如何解决Excel VBA数组公式使用索引匹配给出错误类型不匹配
我正在尝试将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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。