方法单元格对象-Worksheet失败

我有一个函数，应该经常运行：

Public Function FindNumberofhandle(stsmenthandle As String) As Long Dim r As Long Dim LastUsedRow As Long LastUsedRow = Worksheets(2).Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row For i = 1 To LastUsedRow If ActiveWorkbook.Sheets(2).Cells(i, 2).Value = stsmenthandle Then 'ERROR HERE r = i End If Next i FindNumberofhandle = r End Function 

我得到这个错误：

  run time error -2147417748(80010108) Method Cells of Object Worksheet failed 

我该怎么办才能解决这个问题？

Answer 1

我想你需要更换

 ActiveWorkbook.Worksheets(2).Cells(i, 2).Value = stsmenthandle 

同

 ActiveWorkbook.Worksheets(2).Cells(i, 2).Value = stsmenthandle 

图纸是图表和工作表的集合，所以如果在参考工作表（2）时得到图表，那么属性.cells将不起作用。

让我们知道这是否有效，我也很好奇。

忽略具有错误值的单元格：

 If Not iserror(ActiveWorkbook.Worksheets(2).Cells(i, 2)) then If ActiveWorkbook.Worksheets(2).Cells(i, 2).Value = stsmenthandle Then r = i End If End if