Question

EXCEL VBA 的代码问题？

表中的数据,在区域C13:E81的范围内,C列数值为1-8的范围内,如果E列有空的单元格,那么就把A:E列中的那一行区域删除并上移(不是整行删除).因为表格数据比较多,容量大,所以能不能使用快速的办法按条件删除?

Answer 1

如果C列的数值是9，E列为空要不要删？
下面的条件是满足两个条件才删除：C列数值1-8且E列为空
sub test()
dim i as integer
dim arr(1 to 10000,1 to 5)
dim n as integer
n=1
for i=13 to 81
if cells(i,"C")>=1 and cells(i,"C")<=8 and cells(i,"E")="" then
GOTO 200
else
arr(n,1)=cells(i,"A")
arr(n,2)=cells(i,"B")
arr(n,3)=cells(i,"C")
arr(n,4)=cells(i,"D")
arr(n,5)=cells(i,"E")
n=n+1
end if
200:
next
range("A13:E81").ClearContents
range("A13:E"& n+11)=arr
end sub

追问

这个可以,就是有一点,81行下面的单元格能不能跟着上移呢?
比如A82:E200也是有数据的,能不能跟着上面删除后,下方单元格上移呀?

追答

range("A13:E"& n+11)=arr
后面加一句
range("A82:E200").cut range("A"& n+12)

追问

好的,谢谢老师,最后再问一下,如果满足,C列数值1-8且E列为空的条件,然后把整行删除,应该怎么改一下? 因为我发现也要用到这一个代码,E列后面的也有数据,只要满足条件删除整行的也行.

追答

range("A13:E81").ClearContents
改成
range("A13:E81").delete

追问

改成这样不行,删除后,就乱了.

追答

忘了考虑这一句
range("A82:E200").cut range("A"& n+12)

删除前面的之后，A82的位置就变了。

追问

老师,改成这句的话,range("A13:E81").delete
整个这个范围就全都删掉了呀,而不是像以前一样只删除满足条件的.
后面剪切上来的是不满足条件的内容.
老师有没有邮箱

追答

163邮hnsd24

Answer 2

复制这个代码运行试试：
Sub test()
Dim rng As Range
For Each rng In Range("e13:e81")
If rng = "" Then
Range("a" & rng.Row & ":e" & rng.Row).Delete
End If
Next
End Sub

追问

好像少了2个条件.
C13:E81的范围内,C列数值为1-8的范围内,如果E列有空的单元格,那么就把A:E列中的那一行区域删除并上移(不是整行删除).

您写这么多没有效果,何必呢.

追答

把 If rng = "" Then 换成 If rng = "" And rng(1, -1) > 0 And rng(1, -1) < 9 Then试试

追问

不行,你这个方法太慢了,并且还不正确.

追答

那就不明白你的意思了