设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1797|回复: 2
打印 上一主题 下一主题

[基础应用] 帮忙

[复制链接]
跳转到指定楼层
1#
发表于 2005-1-17 17:58:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
各位朋友们,遇到了个问题,请大家集思广益啊.

我一张表有很多的记录,但是有个规律是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了,所以想请大家想想有什么好的方法不用代码就可以实现呢?我见过有人用的定位,然后怎么办我也不知道了.

谢谢大家.
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-1-18 00:10:00 | 只看该作者
选择---筛选---空白---删除选择---定位---空值---删除都不算太麻烦
3#
 楼主| 发表于 2005-1-18 15:42:00 | 只看该作者
呵呵,谢谢,是不是选择好以后一定要用MENU里面的删除--删除行呢?否则就重新选择了.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-29 13:43 , Processed in 0.089631 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表