利用 VBA 代码删除 Excel 表格中的空白行列

以下 VBA 代码片段可以用于删除 Excel 表格中的空白行和空白列：

删除空白行:

Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
For r = LastRow To 1 Step -1
    If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r

删除空白列:

Dim LastColumn As Long, c As Long
LastColumn = ActiveSheet.UsedRange.Columns.Count
LastColumn = LastColumn + ActiveSheet.UsedRange.Column - 1
For c = LastColumn To 1 Step -1
    If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete
Next c

代码说明:

• LastRow 和 LastColumn 变量用于获取当前工作表中最后一行和最后一列的行号和列号。
• For...Next 循环结构用于遍历所有行或列。
• WorksheetFunction.CountA 函数用于统计指定行或列中非空单元格的数量，如果数量为 0，则表示该行或列为空。
• Rows(r).Delete 和 Columns(c).Delete 用于删除指定的行或列。

使用方法:

1. 打开需要处理的 Excel 文件。
2. 按下 Alt + F11 快捷键打开 VBA 编辑器。
3. 在 VBA 编辑器中插入一个新的模块。
4. 将上述代码复制到模块中。
5. 修改代码以适应您的需求，例如修改要删除空白行或列的工作表名称。
6. 运行代码即可删除空白行或列。

注意:

• 在运行代码之前，请务必备份您的数据，以防止数据丢失。
• 该代码仅删除完全空白的行或列，如果行或列中包含空格或其他不可见字符，则不会被删除。