[求助]为什么还有空的行没删掉呢?(附件已上传)

shadows · 发表于 2005-9-6 15:32

这个礼拜刚刚开始学习VBA,

按钮"DATA"生成"DB"表

烦请各位大大帮忙看一下,为什么表"DB"中还有空的行去不掉呢???

iOZqHjty.rar (12.98 KB, 下载次数: 104)

[此贴子已经被作者于2005-9-6 15:46:55编辑过]

prince · 发表于 2005-9-6 15:33

请上传附件·

shadows · 发表于 2005-9-6 15:34

.....哗,,你们速度真快啊,我刚刚发现没附件马上再添附件,一回来就有两个回复了,佩服!!!!!!!!!!!!!!!!!!!

[此贴子已经被作者于2005-9-6 15:34:41编辑过]

prince · 发表于 2005-9-6 15:51

把最后一个循环从大到小循环

For J = Sheets("data").UsedRange.Rows.Count To 1 Step -1

因为从小到大的话，比如第3、4行都为空行，而当你删除了第3行，原来第4行就变成第3行，躲过了循环的搜索。

原来龙三哥比我快哟。我的回答也正是受了龙三哥的启发。

向龙三哥致敬！！！

[此贴子已经被作者于2005-9-6 15:52:42编辑过]

shadows · 发表于 2005-9-6 15:57

又学到了东西,谢谢各位!

bluesharp · 发表于 2005-12-9 17:52

领教了

bluesharp · 发表于 2005-12-12 16:52

从小到大就一定不能全部删除么？

taller · 发表于 2005-12-12 18:47

以下是引用[I]bluesharp[/I]在2005-12-12 16:52:29的发言：[BR]从小到大就一定不能全部删除么？

如果不存在连续空行，那么两种方式的结果都是正确的，存在连续空行时从小到大删除就会出现遗漏

xcndg · 发表于 2006-2-19 10:56

又学到了一招，向各位致敬

lkyzhs · 发表于 2006-3-9 21:47

看的比较晕！！！语法一个没记住，东西看了不少，效果不好啊！！！老喽！！！

		自动登录	找回密码
密码			免费注册