[已解决]删除指定行，除了逐个判断外还有什么好的方法么？

iyanhf

Sub delrow1()
Dim i As Long
For i = Range("b65535").End(xlUp).Row To 2 Step -1
If Range("d" & i) = "a" Then
Rows(i).Delete
End If
Next i
End Sub

逐个判定，逐个删除，这种方法对于数据量少还行，几万行的数据速度就非常慢了，有什么好方法能够提高速度么？
删除指定行.rar (13.27 KB, 下载次数: 17)

2011-12-15 15:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

yuhe0008

2011-12-15 16:04

试试附件中两个按钮的速度。数据加到84608行
删除指定行.rar (462.12 KB, 下载次数: 77)

2011-12-15 16:03 上传

点击文件名下载附件

跳转到最佳答案楼层

lisachen

1. Sub delrow1()
   
2.     Range("b:b").Select
   
3.     Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
4. End Sub

复制代码

jiancai023

来顶一下啊。。。。

Select

Sub b()
    With Columns(4)
        .Replace What:="a", Replacement:="", LookAt:=xlWhole
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

借用2楼代码改的，仍是取巧的，不通用

yuhe0008

试试附件中两个按钮的速度。数据加到84608行
删除指定行.rar (462.12 KB, 下载次数: 77)

2011-12-15 16:03 上传

点击文件名下载附件

iyanhf

yuhe0008 发表于 2011-12-15 16:04
试试附件中两个按钮的速度。数据加到84608行

原来的方法死机了

iyanhf

iyanhf 发表于 2011-12-15 16:13
原来的方法死机了

新方法的计算结果好像不对

Select

这么多数据的话，就用5楼办法吧。
如果解决了你的问题，就给5楼设个最佳吧

adders

1.zip (14.93 KB, 下载次数: 5)

2011-12-16 01:00 上传

点击文件名下载附件
OR you can use AutoFilter:

1. 
   
2. Sub del_test()
   
3. Application.ScreenUpdating = False
   
4. 
   
5. If ActiveSheet.AutoFilterMode = False Then
   
6.     Range("A1").AutoFilter
   
7. End If
   
8. 
   
9. Range("A1").AutoFilter Field:=4, Criteria1:="a"
   
10. Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    
11. ActiveSheet.AutoFilterMode = False
    
12. 
    
13. Application.ScreenUpdating = True
    
14. End Sub

复制代码

搁浅2008

换个思路  把数据放在数组内 然后循环判断得到新数组 把工作表数据清除 然后写入新数据  这个不牵扯格式  如果牵扯格式就不行了