一段简单的VBA代码,让你自如操作Excel!
在上篇中展示了在报表中加入空白行的代码案例展示,下面介绍的是如何批量删除报表中的空白行呢? 方法很多,下面介绍初学阶段最常使用的一种方法。
代码示例
在标准模块中加入如下代码即可实现上面的演示功能。
Sub 删除报表中的所有空白行()Dim n As LongFor n = Range("A65536").End(3).Row To 2 Step -1 If Cells(n, "A") = "" Then Rows(n).DeleteNextEnd Sub
复制上面的代码,自己试下!
上面的代码运行时, 会根据A列单元格的是否没有数据来判断删除空行的。删除也是一次性删除。在遇到报表中连续多个空行的时候,怎么样一次只删除一行呢?静待下篇。
更多Excel VBA编程知识(职场牛人的必备秘技),可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件,一款嵌入进Excel Ribbon界面,打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。
插件下载地址可私信注明邮箱或通过如下链接查询:
Excel 插件:神奇的VBA-升级