VBA .range.find错误“块variables未设置”

我似乎无法看到问题在这里。

我试过了：

Dim findRow As Integer Dim findRow As Range Dim findRow As Excel.Range 

他们都给出了同样的错误。 我试过.with和没有.width

这是我的代码：

 Dim findRow As Excel.Range findRow = ActiveWorkbook.Worksheets("AllAgents").Range("F:F").Find(What:=strEmail(1), LookIn:=xlValues) With ActiveWorkbook.Worksheets("AllAgents") MsgBox (.Cells(2, 6)) findRow = .Range("F:F").Find(What:=strEmail(1), LookIn:=xlValues) End With 

MsgBox显示正确的值，所以它在那里。

这是我得到的错误：

Answer 1

Set findRow = ... – 你正在分配一个对象variables，所以Set是必需的。