[已解决]按条件删除数据

wxfwxj

新建 Microsoft Excel 工作表.zip (5.15 KB, 下载次数: 17)

2016-6-21 16:16 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-21 16:26

代码如下：

1. Sub xx()
   
2.     Dim arr, n&, i&, x&, y&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 2).End(xlUp).Row
   
5.         arr = .Range("B1:B" & n)
   
6.         For i = 1 To n
   
7.             If arr(i, 1) = "序号" Then x = i
   
8.             If arr(i, 1) = "合计" Then
   
9.                 y = i
   
10.                 Exit For
    
11.             End If
    
12.         Next
    
13.         .Rows(x + 1 & ":" & y - 1).Delete
    
14.     End With
    
15. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

代码如下：

1. Sub xx()
   
2.     Dim arr, n&, i&, x&, y&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 2).End(xlUp).Row
   
5.         arr = .Range("B1:B" & n)
   
6.         For i = 1 To n
   
7.             If arr(i, 1) = "序号" Then x = i
   
8.             If arr(i, 1) = "合计" Then
   
9.                 y = i
   
10.                 Exit For
    
11.             End If
    
12.         Next
    
13.         .Rows(x + 1 & ":" & y - 1).Delete
    
14.     End With
    
15. End Sub

复制代码