ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何用VBA实现删除数据间的空白行?

如何用VBA实现删除数据间的空白行?

作者:绿色风 分类: 时间:2022-08-17 浏览:96
楼主
wise
Q:如何用VBA实现删除数据间的空白行?
A:ALT+F11→插入模块→在模块中输入以下代码:

  1. Sub DeleteEmptyRows()
  2.     Dim LRow As Long, r As Long
  3.     LRow = ActiveSheet.UsedRange.Rows.Count
  4.     LRow = LRow + ActiveSheet.UsedRange.Row - 1
  5.     Application.ScreenUpdating = False
  6.     For r = LRow To 1 Step -1
  7.         If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
  8.     Next r
  9. Application.ScreenUpdating = True
  10. End Sub



2楼
水星钓鱼
代码都没有放代码框
3楼
海洋之星
七七,你写帖子越来越不规范了
4楼
wise


放进去会乱码的
5楼
apolloh
你先点代码框按钮,调出对话框,然后复制代码进去
6楼
wise
关键是点了,最近老是出现乱码
7楼
335081548
谢谢分享
8楼
芐雨

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap