一段简单的VBA代码,让你自如操作Excel!
在上篇中展示了在报表中删除空白行的代码案例展示,,在遇到连续多个空行的情况下,如何只删除其中一行,而不是一下子全部删除呢?见下面代码示例。
代码示例
在标准模块中加入如下代码即可实现上面的演示功能。
Sub 删除空白行_连续多个空行只删除一行()Dim n As LongFor n = Range("A65536").End(3).Row To 5 Step -1 If Cells(n, "A") = "" And Cells(n - 1, "A") <> "" Then Rows(n).Delete End IfNextEnd Sub
复制上面的代码,自己试下!
更多Excel VBA编程知识(职场牛人的必备秘技),可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件,一款嵌入进Excel Ribbon界面,打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。
插件下载地址可私信注明邮箱或通过如下链接查询:
Excel 插件:神奇的VBA-升级