我的代码中有一个问题。我想从另一个工作表中查找一个值,然后将其复制到活动工作表中,但问题是我的条件在loop.It中,在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
发布于 2015-09-21 08:38:29
将活动单元格公式构建为字符串。如果要将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的注释所建议的那样。
https://stackoverflow.com/questions/32690589
复制