各位大侠帮忙看下我这段删除程序错在哪里？谢谢

huangkepan

各位大侠帮忙看下我这段程序错在哪里？谢谢
程序可以正确得出我要的结果，只是有一个问题，就是执行删除后，如果再一次执行就会出现提示错误，查了一下是要删除的行存在才不会提示错误。

程序如下：
Sub 批量删除()
   Dim i As Long
   Dim K As Long
   With Sheet1
   Sheet1.Select
       For i = 1 To 50
       If Cells(i, 1) = "序号" Then
          For K = 1 To 20
               If Cells(i + K, 1) = "删除" Then
                Rows(i + 1).Resize(K - 1).EntireRow.Delete
               End If
          Next
        End If
        Next
    End With
End Sub

moonlit123

Rows(i + 1).Resize(K - 1).EntireRow.Delete
这句k-1， 如果你某一行为“序号”，”下面紧接着是“删除”
那么k-1=0 然后resize(0)就出错了。
建议修改下这个逻辑。（反正你序号和删除中间如果没有行数，也就是k=1的时候，是不需要执行删行操作的，索性从k=2开始循环就是了）

Sub 批量删除()
   Dim i As Long
   Dim K As Long
   With Sheet1
   Sheet1.Select
       For i = 1 To 50
       If Cells(i, 1) = "序号" Then
          For K = 2 To 20
               If Cells(i + K, 1) = "删除" Then
                Rows(i + 1).Resize(K - 1).EntireRow.Delete
               End If
          Next
        End If
        Next
    End With
End Sub

wcs98

从下往上，可以试一下

hopeson2010

1. Sub 批量删除()
   
2.     Dim MaxRw As Long, Rw As Long, Rng As Range, Rg As Range
   
3.        MaxRw = Cells(Rows.Count, 1).End(xlUp).Row
   
4.          For Each Rng In Range("A1:A" & MaxRw)
   
5.              If Rng.Value = "序号" Then
   
6.                 For Rw = Rng.Row + 1 To MaxRw
   
7.                     If Rng.Offset(Rw, 0) = "删除" Then
   
8.                        If Rg Is Nothing Then
   
9.                          Set Rg = Range(Cells(Rng.Row + 1, 1), Cells(Rng.Offset(Rw - 1, 0).Row, 1))
   
10.                        Else
    
11.                          Set Rg = Union(Rg, Range(Cells(Rng.Row + 1, 1), Cells(Rng.Offset(Rw - 1, 0).Row, 1)))
    
12.                        End If
    
13.                     End If
    
14.                 Next Rw
    
15.              End If
    
16.          Next Rng
    
17.     Rg.EntireRow.Delete
    
18. End Sub
    

复制代码

huangkepan

moonlit123 发表于 2019-10-2 19:25
Rows(i + 1).Resize(K - 1).EntireRow.Delete
这句k-1， 如果你某一行为“序号”，”下面紧接着是“删除” ...

谢谢，可以了，现在不会出现错误提示了

huangkepan

hopeson2010 发表于 2019-10-2 20:34

大侠，提示
Rg.EntireRow.Delete这句，变量为设置？好像已经设置了啊，