Question

尝试在我的A栏中激活单元格，其中显示＆＃34;生成器加载＆＃34;。

我一直在尝试使用＆＃39; ＆＃39;以＆＃39;结束网上发布的命令和其他建议格式。但是，我一直得到相同的错误 - 运行时错误91.

从我的各种试验中，我非常确定在＆＃34;发现＆＃34;命令，但我无法弄明白...我一直在使用MSDN页面上的格式填写它。

你有什么建议吗？

Dim findstring As String
findstring = "Generator loading"

Sheets("Summary").Columns(1).Find(What:=findstring, After:=Cells(9,1)).Activate

Answer 1

如果.Find方法的结果为Nothing，则通常会出现错误，因为您无法执行Nothing.Activate

首先，您必须检查 Nothingness

Dim rng as Range
Set rng = Sheets("Summary").Columns(1).Find(What:=findstring, After:=Cells(9,1))

If rng Is Nothing Then
    MsgBox findString & " not found!!", vbCritical
    Exit Sub
End If

rng.Activate

'the rest of your code goes here...

Answer 2

我不喜欢使用列，所以我使用了一个范围而不是它。对我来说，我只是替换了表格的参考资料

Sheets(1).Range("A:A").Find(What:=findstring, After:=Cells(9, 1)).Activate

看看这是否有效。如果没有，您可以将表格发送给我：）

查找命令给出错误：＆＃34;运行时错误＆＃39; 91＆＃39;：对象变量或With块变量未设置＆＃34;

2 个答案: