运行时错误：91 是怎么回事？

风之偈

各位大侠，我在一个EXcel文件中有如下VBA代码（在sheet2中），运行时显示91#错误：“对象变量或 With 块变量未设置”。而且刚写好时是能正常运行的，关了文件，改了文件名，再打开就出错了，反复看不知错在哪里？红色是出错的位置。大家帮我看看问题在哪里，谢谢！

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim reName As String
  Dim chEmpy As Range

  reName = Cells(Target.Row, Target.Column - 1).Value
  Range("BI40").Select
   
    With Sheet1.Range("I2:I101")
     Set chEmpy = .Find(What:=reName, _
                                      After:=.Cells(.Cells.Count), _
                                   LookIn:=xlValues, _
                                  LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                   SearchDirection:=xlNext, _
                          MatchCase:=False)
    End With
   
    For i = 4 To 7
     Cells(31, 52 + i).Value = Sheet1.Cells(chEmpy.Row, chEmpy.Column - 1 + i).Value
    Next
  
End Sub

danielcm

首先打开工作簿的表1的"I2:I101"要有数据。不然就会有这个提示。
第二，"I2:I101"里最后一个数据的第二行的L——O列要有数据，不然表2的BD31：BG31看不到数据。
第三，你用的是单元格更改事件，每改一个数据就会重新触发此事件。这样会不停的运行，如同病毒。
改进方法：可在表2的单元格更改时加入Application.EnableEvents = False，改后一定要Application.EnableEvents = True

修改后如下：
Private Sub Worksheet_Change(ByVal Target As Range)

  Dim reName As String
  Dim chEmpy As Range

  reName = Cells(Target.Row, Target.Column - 1).Value
  Range("BI40").Select
   
    With Sheet1.Range("I2:I101")
     Set chEmpy = .Find(What:=reName, _
                                      After:=.Cells(.Cells.Count), _
                                   LookIn:=xlValues, _
                                  LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                   SearchDirection:=xlNext, _
                          MatchCase:=False)
    End With
   
    For i = 4 To 7
        Application.EnableEvents = False
        Cells(31, 52 + i).Value = Sheet1.Cells(chEmpy.Row, chEmpy.Column - 1 + i).Value
        Application.EnableEvents = True
    Next
  
End Sub

[ 本帖最后由 danielcm 于 2009-3-24 17:26 编辑 ]

风之偈

谢谢2楼。目前情况如下：
1、sheet1的“I2:I101”是有数据的，不过不一定有100个数据，目前是有33个；
2、关于这一点我没太看懂你的意思，不过L~O列也不一定都有数据，我觉得好像不影响；
3、关于这一点怪我，是我没说清楚。这只是代码的一段，虽然我用的是单元格修改事件，但对target有个IF判断，所以不会总不停运行的；
4、最后，我也不知道怎么回事，它有正常了。我反复开关文件，反复测试，又正常了，非常晕。不过不管怎么样，谢谢2楼的帮助，至少我学到了Application.EnableEvents。

雪豹

我也碰到这样的情况，关闭再打开就好了。