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

yefeiwolaile

刚用录制宏看到一个简单方法

for each aa in range("a:a")]

if aa.value ="AAA" then

rr$= cstr(aa.row) & ":" & cstr(aa.row)

range(rr).delete shift:=xlup 

next

Moneky

不用VBA也可以解决，比如这题可以这样：

A列=AAA的删除，可以先排序，等AAA集合到一起，在集体处理（一下选中删除）。如果要在删除后保持原来的顺序，就在排序前加一个辅助列X，在X中从上到下填入1，2，3，……，再排序删除，最后再对X列排序后删除掉X列

A列包含AAA的情况，可以先筛选，再删除，接着同上

[此贴子已经被作者于2007-10-9 13:07:15编辑过]

彭希仁

都是高手啊。

fa_ge

為什麼沒有一個人借用SQL來做到呢

彭希仁

為什麼沒有一個人借用SQL來做

只是A列还好说，如果同时有很多列。A列为AAA的，其它列又不一样，那SQL就搞不定了。

lenghonghai

sub xxx

dim x%,i%

x=range("a65536").end(xlup).row

for i=1 to x

if range("a" & i)="AAA" then

range(i & ":" & i).delete

end if

next i

end sub

lenghonghai

QUOTE:

以下是引用northwolves在2007-9-18 15:32:29的发言：

可借用辅助列:

Sub MACRO1()
Dim n As Long
n = [a65536].End(xlUp).Row
With [iv1].Resize(n, 1)
.Formula = "=IF(RC1=""AAA"",1/0,1)"
.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
.Value = ""
End With
End Sub

Sub MACRO2()
Dim n As Long
n = [a65536].End(xlUp).Row
With [iv1].Resize(n, 1)
.Formula = "= IF(LEN(RC1)>LEN(SUBSTITUTE(RC1,""AAA"","""")),1/0,1)"
.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
.Value = ""
End With
End Sub

学习了，我的代码确实如三楼所说有如果两行相连有漏删现象，以前真没有注意这种事情，狼版的辅助列高明。

lenghonghai

原来方法这么多，山版主的从后往前删，yuanzhuping版主的替换然后查找简直太好了，又学习了新知识。

xudongwei

先将单元格排序，然后再从上先下和从下向上查找第一个符合AAAA的单元格，锁定删除的行坐标，在删除即可

tcy119

自来这论坛,今天所见高手发表内容最多的一页,要是每一页都有这样的高手帮忙,哪就好了.