如何将A列所有单元格值是"AAA"的整行删除?

win2009

原帖由 yuanzhuping 于 2007-9-18 15:49 发表
Sub Del()        Dim R As Integer        R = Sheet1.[A65536].End(xlUp).Row        With Range("A ...

为什么把列换AJ或别的事就删除所有数据，先谢酿成大祸，你应该说明白才行这样很危险

txbing

都是高手啊。

shenboo

这么多方法 那种效率最高呢

helenliuhai

如果是要将满足条件的行不是删除而是自动提取到新工作表中呢，怎么修改代码？

wskcel

那位老大给个代码，删除C列有数据的行，谢谢！

Mr古古

lenghonghai 发表于 2007-9-18 15:40
QUOTE:以下是引用northwolves在2007-9-18 15:32:29的发言：可借用辅助列:Sub MACRO1()Dim n As Longn = [a6 ...

Sub xxx()
Dim x%, i%
x = Range("a65536").End(xlUp).Row
For i = 1 To x
LA:
If Range("a" & i) = "aaa" Then
Range(i & ":" & i).Delete
GoTo LA
End If
Next i
End Sub

加个goto搞掂啦

wzsy2_mrf

不用goto ,可以先全部选定，然后一性次删除

Sub xxx()
Dim x%, i%, mystr$
x = Range("a65536").End(xlUp).Row
For i = 1 To x
If Range("a" & i) = "aaa" Then mystr = mystr & i & ":" & i & ","
Next i
Range(Left(mystr, Len(mystr) - 1)).Delete
End Sub

yzxfelix

wzsy2_mrf 发表于 2014-5-22 08:59
不用goto ,可以先全部选定，然后一性次删除

Sub xxx()

不知道效果怎样，但是您的方法，我看着靠谱。循环一次删除一次，显然是不可行的。

yzxfelix

wzsy2_mrf 发表于 2014-5-22 08:59
不用goto ,可以先全部选定，然后一性次删除

Sub xxx()

经过我放进具体的实验发现： 当没有值的时候，会发生错误，可加句： on error resume next