求助解决删除空白行或者0行代码出现错误提示

jiangjian1380

Sub sckb() '删除空白行或者0行
Dim S1 As Worksheet
Dim arr, brr(), i&, rng As Range
Set S1 = Worksheets(1)
'For i = 2 To S1.[a65536].End(xlUp).Row
   If IsNull(S1.Cells(i, 7)) And IsNull(S1.Cells(i, 8)) Or (S1.Cells(i, 7) = 0 And S1.Cells(i, 8) = 0) Then
        If rng Is Nothing Then
            Set rng = S1.Cells(i, 1)
        Else
            Set rng = Union(rng, S1.Cells(i, 1))
        End If
    End If
Next i
rng.EntireRow.Delete '一次刪除所有不符条件的行
End Sub
以上代码出现运行是错误“91”，对象变量或With变量未设置的提示。之前用没有问题的，但是用着出现错误了，求助 12354.rar (16.47 KB, 下载次数: 3)

2018-7-2 18:16 上传

点击文件名下载附件

yaojil

是否是这样

jiangjian1380

yaojil 发表于 2018-7-2 18:35
是否是这样

感谢，正是我想要的

lsc900707

1. Sub gj23w98()
   
2.     Dim brr(1 To 1000, 1 To 20)
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 1 To UBound(arr)
   
5.         If Len(arr(i, 7)) Or Len(arr(i, 8)) Or (arr(i, 7) <> 0 And arr(i, 8) <> 0) Then
   
6.             m = m + 1
   
7.             For j = 1 To 20
   
8.                 brr(m, j) = arr(i, j)
   
9.             Next
   
10.         End If
    
11.     Next
    
12.     [a1].CurrentRegion.Clear
    
13.     [a1].Resize(m, 20) = brr
    
14. End Sub

复制代码

lsc900707

附件供测试：

不知道为什么

最后加个判断不就得了？
if not rng is nothing then
   rng.....
end if

YZC51

学习2楼老师的代码
Sub sckb() '删除空白行或者0行
Dim S1 As Worksheet
Dim i&, rng As Range
Set S1 = Worksheets(1)

'=====删除v、w列所有为“0”的行或v、w列均为空值的行====='
For i = 2 To S1.[b65536].End(xlUp).Row
   If S1.Cells(i, 7) + S1.Cells(i, 8) = 0 Then
        If rng Is Nothing Then
            Set rng = S1.Cells(i, 1)
        Else
            Set rng = Union(rng, S1.Cells(i, 1))
        End If
    End If
Next i
If Not rng Is Nothing Then
   rng.EntireRow.Delete '一次刪除所有不符条件的行
End If
End Sub