EXCEL VBA的代码？

Question

我想在D列,查找到第1个包含有 "+" 的行号 ( 比如说行号是5,5的上一行是4).那么就把 1:4行删除.请老师帮我看看这个代码怎么写?

Answer 1

假定表格中肯定有“+”号存在，代码如下，如果没有“+”号，则先增加判断语句，否则程序会出错。

Sub 删除行()

Ro = ActiveSheet.UsedRange.Find("+", , , 2).Row - 1

If Ro > 0 Then Range("1:" & Ro).Delete

End Sub

Answer 2

sub 宏1()
dim i,n
n=cells(rows.count,4).end(xlup).row
i=1
while i<=n and instr(cells(i,4),"+")<1
i=i+1
wend
if i<=n then range("1:" & (i-1)).delete
end sub追问

非常感谢老师,弱弱地问一句,这个还有没有再简化一点的代码呢?

本回答被提问者采纳