安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

[分享] Excel宏代码:删除使用区域内的空白行

2005-06-27 00:07:00
晓月清风-Office交流网
原创
2941
Sub DeleteEmptyRows()
    lastrow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = lastrow To 1 Step -1
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
    Next r
    Application.ScreenUpdating = True
End Sub
图1:含有空白行
TqY7wVwz.jpg
图2:运行宏删除空白行后

 pvYNjmXQ.jpg


晓月清风
设计思路倒还不错

douyi
这个问题用自动筛选就可以很容易解决的啊

晓月清风
选取数据区,“数据”-?#30333;?#21160;筛选”-“选取空白”-手动删除掉空白行;然后再“数据”-?#30333;?#21160;筛选”显示删除空行后的结果

xinghaifuyun
谢谢斑竹的共享,我还真要用呢,太谢谢了?还有没有其他类似的小程序呢?

?#30446;?#20197;清
用定位"空值"也应该可以的.说到小程序的话,可能先录个看看效果,嘿嘿.

(VBA-相关文章技巧链接):
Access 2007 中的用户级安全
快捷键大全
Excel 97/VBA技术讲座之六
EXCEL技巧53例三
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.18
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
拳皇98ol女高 宝贝财神援彩金 天龙八部手游版礼包 中国福利彩票双色球开奖结果查询 米兰对恩波利视频 墨尔本胜利布里斯班狮吼竞猜 英魂之刃火神战姬 红黑梅方技术破解 恩波利对热那亚预测 一起来捉妖培养哪几个比较好