excel - Vlookup 公式显示 1004 错误。解决方法也失败了

Question

我试图在一些过滤的数据上插入一个 Vlookup 公式，但我遇到了一些错误。下面是我正在使用的代码。 (不是全部，只是有问题的部分)

'Sells
Dim SellData As Worksheet
Set SellData = Transactions.Sheets("SellData")
Dim lrSell As Long
lrSell = SellData.Cells(Rows.Count, "H").End(xlUp).Row
Dim SellDataRange As Range
Set SellDataRange = SellData.Range("A1:CW" & lrSell)

PrVFormat = Format$(Transactions.Sheets("others").Range("B2").Value, "dd-mmm-yy")
SellDataRange.AutoFilter Field:=8, Criteria1:=PrVFormat
lrSellFilter = SellData.Cells(Rows.Count, "H").End(xlUp).Row

With SellData.Range("CW2:CW" & lrSellFilter).SpecialCells(xlCellTypeVisible)
  .Cells.FormulaR1C1 = "=VLOOKUP(RC[-12],'[OtherWorkbook.xlsx]new'!$A:$K,11,FALSE)"   '1004 error
  SellData.Calculate
SellDataRange.AutoFilter Field:=8
SellData.Range("CW1:CW" & lrSell).Copy
SellData.Range("CW1").PasteSpecial xlPasteValues
End With

我遇到的问题是

.Cells.FormulaR1C1 = "=VLOOKUP(RC[-12],'[OtherWorkbook.xlsx]new'!$A:$K,11,FALSE)"  

如果我留下 $，我会收到 1004 错误。如果我删除 $，公式最终是这样的

=VLOOKUP(CK1578,'[OtherWorkbook.xlsx]new'!A:(K),11,FALSE)

'注意K周围的括号。那不应该在那里。

预先感谢您的帮助

Answer 1

您不能混合使用 R1C1 和 A1 命名法。

.Cells.FormulaR1C1 = "=VLOOKUP(RC[-12],'[OtherWorkbook.xlsx]new'!C1:C11,11,FALSE)"