Office中国论坛/Access中国论坛

标题: 帮忙 [打印本页]

作者: 罗生门 时间: 2005-1-17 17:58
标题: 帮忙
各位朋友们,遇到了个问题,请大家集思广益啊.

我一张表有很多的记录,但是有个规律是1\3\5行为空,而2\4\6行有数据,大概就是这个规律,整个表有千条行,所以我要是一个个的删除空行,很是麻烦.于是自己写了个VBA的代码,实现起来倒也是容易.

sub delblank()

dim i as ingeger

sheets(1).select

for i=1 to 1000

if isempty(cells(i,1)) then

rows(i).entirerow.select

selection.delete

end if

next i

end sub

但是慢慢的,我发现自己开始太依赖VBA了,所以想请大家想想有什么好的方法不用代码就可以实现呢?我见过有人用的定位,然后怎么办我也不知道了.

谢谢大家.

作者: 情比金坚 时间: 2005-1-18 00:10
选择---筛选---空白---删除选择---定位---空值---删除都不算太麻烦

作者: 罗生门 时间: 2005-1-18 15:42
呵呵,谢谢,是不是选择好以后一定要用MENU里面的删除--删除行呢?否则就重新选择了.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)