excel - 在单元格中输入vlookup公式时出现错误1004 vba excel

Question

我已经尝试了一切，包括阅读论坛中有关错误 1004 应用程序定义或对象定义错误的许多问题，但我找不到任何可以帮助我修复错误的内容。它在立即窗口中写入正确的公式。这是代码。我已将出现错误的位置放在代码中。

变量定义如下，我已将出现错误 1004 时的值包含在监 window 口中

Dim templateName As String       ' = "Company 1"   and yes this worksheet exists in my file
Dim servicesRow As Integer       ' = 22
Dim j as Integer                 ' = 1
Public firstProjectSOF as Range  ' firstProjectSOF.Row = 5
Dim columnTemp As Variant        ' columnTemp(0) = "A"
Public lastProjectSOF as Range   ' lastProjectSOF.Row = 65
Dim Rng as Range                 ' Rng.Column = 17



For j = 1 To numEmployees

    With Sheets("SOF").Range("E5", Range("E5").End(xlToRight))       'Finds the cell in SOF of that employee's last name
        Set Rng = .Find(What:=employees_lastName(j), _
                    LookIn:=xlValues, _
                    LookAt:=xlPart, _
                    SearchOrder:=xlByColumns, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False)
    End With
    'This is where the error 1004 occurs, on trying to write the VLOOKUP formula into the cell

    Sheets(templateName).Range(Cells(servicesRow + 1 + j, 5)).FormulaLocal = "=VLOOKUP($G$10,'Staff Output Final'!B" & firstProjectSOF.Row & ":" _
    & columnTemp(0) & lastProjectSOF.Row & "," & (Rng.Column - 1) & ",FALSE)"
Next

仅供引用，如果相关的话，我的计算机是来自加拿大的 Mac(英语)，但我最近在法国的 PC 计算机上编辑了该文件(操作系统为法语)。为了防止出现问题，我只是尝试在 Mac 上创建一个新的 Excel 文件，然后将旧文件中的选项卡复制并粘贴到新文件中，但我仍然收到错误 1004...

感谢您的帮助!非常感谢!

Answer 1

事实上，我只是偶然尝试了一些东西，它起作用了......我删除了 Range，只留下了 Cells 部分，所以代码变成了:

Sheets(templateName).Cells(servicesRow + 1 + j, 5).FormulaLocal = "=VLOOKUP($G$10,'Staff Output Final'!B" & firstProjectSOF.Row & ":" _
& columnTemp(0) & lastProjectSOF.Row & "," & (Rng.Column - 1) & ",FALSE)"

我不太确定为什么会这样，但确实如此......

有谁知道为什么吗？？？由于在同一代码的较高位置，我使用以下代码将 VLOOKUP 公式分配给另一个单元格，并且它与“范围”一起使用没有问题。

Sheets(templateName).Range("A18:H18").FormulaLocal = "=VLOOKUP($G$10,'PEIINV2 - paste here'!B" & firstProjectPEIINV.Row & ":AH" & lastProjectPEIINV.Row & _
",2,FALSE)"