VBA代码解决方案第二十三讲 EXCEL中,如何删除工作表中的空白行

《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程,目前已经是第三版修订了。这套教程定位于入门后的提高,在学习这套教程过程中,侧重点是要理解及掌握我的"积木编程"思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。

这套教程共三册,一百四十七讲,内容覆盖较广,也是初级和中级间的过渡教程,改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是VBA代码解决方案第二十三讲 EXCEL中,如何删除工作表中的空白行

【分享成果,随喜正能量】99 万物皆有灵,草木亦有心。这世间,万事万物都是有回音的,大至一世界,小至一微粒,你拿出十分的善意,定会收到它以一百分的温柔回馈。。

第二十三讲 EXCEL中,如何删除工作表中的空白行

今日讲解VBA代码解决方案之二十三,EXCEL中,如何删除工作表中的空白行,这里要首先讲解的是Range对象的Delete方法,此方法用于删除对象。

语法:expression.Delete(Shift)

参数

a) expression是必需的,返回一个Range对象。

b) Shift是可选的,指定删除单元格时替补单元格的移位方式。可为以下 XlDeleteShiftDirection常量之一:xlShiftToLeft或xlShiftUp。如果省略该参数,则Microsoft Excel将根据区域的图形决定移位方式。

1 利用Range对象的Delete方法删除空白行的代码

下面我们将就实际的应用来讲解如何应用DELETE方法,这个方法也是VBA中应用中的非常广泛的。可以用于VALUE的删除,也可以用于格式的删除,还可以用于行的删除等等,今日讲解的就是行的删除。要根据具体的条件来选择删除的对象,这就要根据实际问题的来做具体的判断,这里我要讲解的是"如何删除空白行",这个问题。这个问题也是在实际工作中应用的最为广泛的方法。下面我们看代码:

Sub mynz_23() '第23讲 EXCEL中,如何删除工作表中的空白行

Dim rRow As Long

Dim LRow As Long

Dim i As Long

rRow = Sheets("23").UsedRange.Row '首行

LRow = rRow + Sheets("23").UsedRange.Rows.Count - 1 '尾行

For i = LRow To rRow Step -1

If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then

Rows(i).Delete

End If

Next

End Sub

代码窗口:

2 实例代码的解读及运行结果

代码解析:mynz_23过程删除工作表中已使用的区域的所有空行。

  1. 第5行代码获得工作表中已使用区域的首行行号,其中使用UsedRange属性返回工作表中已使用的区域。

  2. 第6行代码获得工作表中已使用区域的最后一行行号。

  3. 第7行到第11行代码从最大行数至最小行数循环判断指定行是否为空行,若为空行则删除该行。

  4. 其中第8、9行代码使用工作表CountA函数判断当前行已使用单元格的数量,如果为零说明此行是空行则使用Delete删除。

  5. UsedRange属性应用于Worksheet对象,返回指定工作表中已使用区域的Range对象,即返回工作表中已使用的单元格区域。

  6. WorksheetFunction.CountA 方法 用于计算非空单元格及参数列表中值的个数。

  7. Application.WorksheetFunction.CountA(Rows(i)) 表示选中Rows(i)行的非空单元格的个数。

  • UsedRange.Row表示已用单元格第一行的序数; UsedRange.Rows.Count表示已用单元格总的行数;
  • 需要注意点是: 此处一定要从最大行数至最小行数开始循环判断,因为如果工作表中存在两行及两行以上的相邻空行,从最小行数开始循环删除的话,当第一行空行被删除后,被删除行下面的一行会往上移位,而此时For...Next循环的计数器已经加1,所以会出现漏删除的现象。

代码的运行情况:

运行后的结果:

今日内容回向:

1 删除工作表行数的思路是什么?

2 UsedRange.Row 意义是什么?

3 Application.WorksheetFunction.CountA(Rows(i)) 是什么意义?

本讲内容参考程序文件:VBA代码解决方案修订(22-26).xlsm

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

相关推荐
励志要当大牛的小白菜4 分钟前
ART配对软件使用
开发语言·c++·qt·算法
爱装代码的小瓶子2 小时前
数据结构之队列(C语言)
c语言·开发语言·数据结构
Maybe_ch4 小时前
.NET-键控服务依赖注入
开发语言·c#·.net
超浪的晨4 小时前
Java UDP 通信详解:从基础到实战,彻底掌握无连接网络编程
java·开发语言·后端·学习·个人开发
终焉暴龙王4 小时前
CTFHub web进阶 php Bypass disable_function通关攻略
开发语言·安全·web安全·php
Edingbrugh.南空5 小时前
Aerospike与Redis深度对比:从架构到性能的全方位解析
java·开发语言·spring
CodeCraft Studio5 小时前
借助Aspose.HTML控件,在 Python 中将 HTML 转换为 Markdown
开发语言·python·html·markdown·aspose·html转markdown·asposel.html
QQ_4376643145 小时前
C++11 右值引用 Lambda 表达式
java·开发语言·c++
aramae5 小时前
大话数据结构之<队列>
c语言·开发语言·数据结构·算法
封奚泽优6 小时前
使用Python实现单词记忆软件
开发语言·python·random·qpushbutton·qtwidgets·qtcore·qtgui