今天讲解VBA代码解决方案第28号，如何删除EXCEL中工作表中的空白行。 这里首先要解释的是Range对象方法，该方法用于删除对象。

语法：.（移位）

范围

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

b) Shift 是可选的，指定删除单元格时替换单元格的移位方法。 可以是以下常量之一：或。 如果省略此参数，Excel将根据区域的形状确定移动方法。

下面我们将解释如何在实际应用中应用该方法。 这种方法在VBA中也被广泛使用。 可用于删除VALUE、删除格式、删除行等。根据具体情况选择删除对象，需要根据实际问题具体判断。 这里我要解释的是“如何删除空行”。 这个问题也是实际工作中应用最广泛的方法。 我们看下面的代码：

子()

Dim rRow 只要

变暗 LRow 一样长

暗淡我只要

rRow = ("")..行

LRow = rRow + ("")..Rows.Count - 1

对于 i = LRow 到 rRow 步骤 -1

如果 ..(行(i)) = 0 那么

行(i)。

万一

下一个

结束子

代码分析：该过程删除工作表已使用范围内的所有空白行。

a) 第5行代码获取工作表中已使用区域的第一行号，并使用该属性返回工作表中已使用区域。

b) 代码第6行获取工作表中已使用区域的最后行号。

c) 代码第7行到第11行从最大行数到最小行数循环判断指定行是否为空行。 如果是空行，则删除该行。

d) 第 8 行和第 9 行代码使用工作表函数来确定当前行中使用的单元格数量。 如果为零，说明这一行是空行，所以删除它。

e) 该属性应用于对象，返回指定工作表中已使用区域的Range对象，即返回工作表中已使用的单元格区域。

f) .Row 表示第一行使用的单元格的序号； .Rows.Count表示第一行已使用单元格的行数；

g) . 方法用于统计非空单元格和参数列表中的值的数量。

h) ..(Rows(i)) 表示所选 Rows(i) 行中非空单元格的数量。

需要注意的是：这里必须从最大行数到最小行数开始循环判断，因为如果工作表中有两个或两个以上相邻的空白行，如果从最小行数，当删除空行后，被删除行下面的行会向上移动。 此时For...Next循环的计​​数器已经加1了，所以会出现漏删除的现象。

运行过程工作表区域如图：

代码窗口：

运行后结果：

今日内容回顾：

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

2.行的含义是什么？

3..(行(i))这是什么意思？

本系列文章是根据我多年的工作经验写成的，是我一直在使用的一个工具。 它非常方便且易于使用。 现在分享出来，希望能给同样在职场中苦苦挣扎的朋友们一些帮助。 朋友们，有什么问题欢迎提出，我们一起讨论学习。 目的是为了更好地利用Excel和VBA，提高工作效率，有更多的时间和精力享受生活。

有数据分析需求的公司、组织或个人可以直接联系我，我会及时为您提供专业、定制化的技术支持。

欢迎大家在我的自媒体平台进行交流：公众号“VBA学习交流群”、社区“VBA学习交流群”、头条号“VBA专家”、百家号“VBA与GO语言”。