运行时错误运行VBA代码不是我自己的

我需要对其他人的代码进行反向工程并使其运行。 现在，它正在向我抱怨一些错误，抱怨说没有设置一些variables。

我不确定它到底在说什么。 这是带有错误的子程序的顶部。

Sub OBI_Vendor_Detail_Macro() Cells.Select With Selection .WrapText = False .MergeCells = False End With Range("C4").Select Cells.Find(What:="Grand Total", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate 

最后一行产生此错误Run-time error '91': Object variable or With block variable not set

希望我已经提供了足够的信息。 如果不是，请让我知道。 谢谢。

Answer 1

你需要先尝试 Find ，然后检查你是否find了一些东西：

 Dim foundCell As Range Set foundCell = Cells.Find(What:="Grand Total", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not foundCell Is Nothing Then foundCell.Activate End If