Question

我的代码中存在问题。我想从另一个工作表中查找一个值，然后将其复制到活动工作表中，但问题是我的条件是在一个循环中。它在Vlookup行中给出了一个错误。有人可以检测到我的错误：

With ThisWorkbook.Sheets("Plan Traitement Risque")
    For i = 6 To lr1 Step 1
      'Test si valeur cellule feuil1!=Ax est dans Plage col_2(feuil2!A1:A50))
    If Application.CountIf(col_2, .Range("B" & i).Value) = 0 Then
     Cells(i, 3).Select
     ActiveCell.Formula = "=VLOOKUP(Cells(i, 2).Value,'Scénarios de menace'!$B$6:$N$700,2,FALSE)"
    End If
    Next i
End With

Answer 1

活动单元格公式构建为字符串。如果要将cells(a, b).value之类的VBA函数传递给该字符串，则需要将其与字符串的其他部分连接起来，如下所示：

ActiveCell.Formula = "=VLOOKUP(""" & Cells(i, 2).Value & """,'Scénarios de menace'!$B$6:$N$700,2,FALSE)"

编辑：添加引号以容纳单元格（i，2）中的字符串，如Jeeped的评论所示。

第一个参数中的Vlookup错误

1 个答案: