EXCEL如何用宏录制查找并删除的功能

显示全部楼层 · 2010-5-21 16:45:51

我想录下这样一个过程，
在一个表里面查找一个字符串，然后删除其下面所有的行
举个例子，比如说A25单元格是12345，我要查找到12345，就是A25所在的这行，查找到后删除A25和其下面所有的行。要实现的功能是，如果我另外一个表第A80是12345，运行这个宏，把A80和其下面的行删掉
可是每次我录的时候，查找的功能总是没有，运行总直接删到了A25和其以下行。
2L的代码可以用，但是我想知道是如何用宏录制这个过程

千问 · 2010-5-21 16:45:51

Sub aa()x = [a56565].End(3).RowFor i = 1 To xIf Cells(i, 1) = "12345" ThenRange("a" & i & ":" & "a" & x).DeleteEnd IfNextEnd Sub12345是文本型数据，否则将“”去掉

千问 · 2010-5-21 16:45:51

用find方法，很简单的：范围.find（what=，......）例如：range（“a：a”）.find（excel）就是在a列查找，其实说白了就是对象.方法，对象不就是你要查找的范围么，希望可以帮到你。

千问 · 2010-5-21 16:45:51

这就是查找录制的 Cells.Find(What:="12345", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False