[已解决]删除整行

ymq123

请编写代码：
  第1与2行为一组、3与4、5与6、7与8分别为一组，以此类推分组，如果每组两行数字个数同时小于5时，就删除这两整行。
  如表1中11与12、表2中5与6两行数字都小于5个，就删除这4整行.删除后的表如下：
谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-13 20:13

Sub Macro1()
Dim i&, rng As Range, x%, y%
For i = 1 To Range("a65536").End(xlUp).Row - 1 Step 2
    x = Application.CountA(Cells(i, 1).Resize(1, 7))
    y = Application.CountA(Cells(i + 1, 1).Resize(1, 7))
    If x < 5 And y < 5 Then
        If rng Is Nothing Then
            Set rng = Cells(i, 1).Resize(2, 7)
        Else
            Set rng = Union(rng, Cells(i, 1).Resize(1, 7))
        End If
    End If
Next
If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim i&, rng As Range, x%, y%
   
3. For i = 1 To 11 Step 2
   
4.     x = Application.CountA(Cells(i, 1).Resize(1, 7))
   
5.     y = Application.CountA(Cells(i + 1, 1).Resize(1, 7))
   
6.     If x < 5 And y < 5 Then
   
7.         If rng Is Nothing Then
   
8.             Set rng = Cells(i, 1).Resize(2, 7)
   
9.         Else
   
10.             Set rng = Union(rng, Cells(i, 1).Resize(1, 7))
    
11.         End If
    
12.     End If
    
13. Next
    
14. If Not rng Is Nothing Then rng.Delete shift:=xlUp
    
15. End Sub
    

复制代码

dsmch

………………

ymq123

dsmch 发表于 2014-4-13 19:49

请把工作表整行删除
谢谢！

dsmch

Sub Macro1()
Dim i&, rng As Range, x%, y%
For i = 1 To Range("a65536").End(xlUp).Row - 1 Step 2
    x = Application.CountA(Cells(i, 1).Resize(1, 7))
    y = Application.CountA(Cells(i + 1, 1).Resize(1, 7))
    If x < 5 And y < 5 Then
        If rng Is Nothing Then
            Set rng = Cells(i, 1).Resize(2, 7)
        Else
            Set rng = Union(rng, Cells(i, 1).Resize(1, 7))
        End If
    End If
Next
If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub