[已解决]运行时错误91 对象变量或with块变量未设置

hunpo

我写了一段代码，可是有时报错，有时不报错，
报错时，如下：
运行时错误91
对象变量或with块变量未设置，在语句 Rng1.EntireRow.Delete处

请高手帮我解决一下吧
Sub 删除空行空列()
    Dim Area_ As Range
    Dim Rng1 As Range
    Dim Rng2 As Range
    Dim Ro As Long
    Dim Col As Integer
    Dim lstRo As Long
    Dim lstCol As Integer
    If [a1] = "" Then [a1] = 1
    Set Area_ = ActiveSheet.UsedRange
    [a1].ClearContents
    lstRo = Area_.rows.Count
    lstCol = Area_.Columns.Count
    Application.ScreenUpdating = False
    For Ro = 1 To lstRo
        If Application.CountA(Area_.rows(Ro)) = 0 Then
            If Rng1 Is Nothing Then
                Set Rng1 = rows(Ro)
            Else
                Set Rng1 = Union(Rng1, rows(Ro))
            End If
        End If
    Next
    For Col = 1 To lstCol
        If Application.CountA(Area_.Columns(Col)) = 0 Then
            If Rng2 Is Nothing Then
                Set Rng2 = Columns(Col)
            Else
                Set Rng2 = Union(Rng2, Columns(Col))
            End If
        End If
    Next

    Rng1.EntireRow.Delete
    Rng2.EntireColumn.Delete
    Set Area_ = Nothing
    Set Rng1 = Nothing
    Set Rng2 = Nothing
    Application.ScreenUpdating = True

    End Sub

最佳答案

月排行榜 / 总排行榜

adders

2012-3-6 10:55

    For Ro = 1 To lstRo
        If Application.CountA(Area_.Rows(Ro)) = 0 Then
            If Rng1 Is Nothing Then
                Set Rng1 = Rows(Ro)
            Else
                Set Rng1 = Union(Rng1, Rows(Ro))
            End If
        End If
    Next

如果以上红色部分从来没有成立过,即Application.CountA(Area_.Rows(Ro)) 从来就没有=0时, Rng1就从来不会被定义,之后
   Rng1.EntireRow.Delete 就会出错

同理,以下红色部分如果从来未成立,则Rng2就不会被定义,之后的Rng2.EntireColumn.Delete就会出错

    For Col = 1 To lstCol
        If Application.CountA(Area_.Columns(Col)) = 0 Then
            If Rng2 Is Nothing Then
                Set Rng2 = Columns(Col)
            Else
                Set Rng2 = Union(Rng2, Columns(Col))
            End If
        End If
    Next

解决办法:在Rng1.EntireRow.Delete这一行上面加一行: On Error Resume Next

跳转到最佳答案楼层

Select

并说明题意，说不定高手可给出更简单的方法

adders

    For Ro = 1 To lstRo
        If Application.CountA(Area_.Rows(Ro)) = 0 Then
            If Rng1 Is Nothing Then
                Set Rng1 = Rows(Ro)
            Else
                Set Rng1 = Union(Rng1, Rows(Ro))
            End If
        End If
    Next

如果以上红色部分从来没有成立过,即Application.CountA(Area_.Rows(Ro)) 从来就没有=0时, Rng1就从来不会被定义,之后
   Rng1.EntireRow.Delete 就会出错

同理,以下红色部分如果从来未成立,则Rng2就不会被定义,之后的Rng2.EntireColumn.Delete就会出错

    For Col = 1 To lstCol
        If Application.CountA(Area_.Columns(Col)) = 0 Then
            If Rng2 Is Nothing Then
                Set Rng2 = Columns(Col)
            Else
                Set Rng2 = Union(Rng2, Columns(Col))
            End If
        End If
    Next

解决办法:在Rng1.EntireRow.Delete这一行上面加一行: On Error Resume Next

hunpo

高手就是经典的解答，崇敬，而不言谢了

787851791

adders 发表于 2012-3-6 10:55
For Ro = 1 To lstRo
        If Application.CountA(Area_.Rows(Ro)) = 0 Then
            If Rng1 ...

你的回复帮我大忙了 哈哈