在本文中，我们将学习如何在整行中没有数据时删除行。

以下是我们拥有的数据快照：

image 1

本教程的概念是，如果在所选范围A1：E10中找到任何完整的空白行，则vba代码应删除该行。

我们需要执行以下步骤：

单击“开发人员”选项卡。从“代码”组中，选择“ Visual Basic”

image 2

  • 在当前工作表模块中输入以下代码

子DeleteEntireRow（）

昏暗我只要

‘关闭“计算和屏幕更新”以加速宏

随着应用

.Calculation = xlCalculationManual

.ScreenUpdating = False

对于i = Selection.Rows.Count到1步骤-1

如果WorksheetFunction.CountA（Selection.Rows（i））= 0然后

Selection.Rows（i）.EntireRow.Delete

如果

结束

下一个我

.Calculation = xlCalculationAutomatic

.ScreenUpdating = True

以

结尾

结束子

image 3

  • 让我们首先手动删除一行中的数据以测试我们的代码。

  • 复制代码后；选择范围A1：E10并手动删除任何行

image 4

  • 现在使用ALT + F8键运行宏并选择DeleteEntireRow

image 5

  • 空行已被删除，下面的所有行都向上移动。

这样，我们可以在Microsoft excel中使用vba删除行。

Excel//wp-content/uploads/2015/06/Download-Delete-Rows-in-VBA1.xlsm[Download-Delete Rows in VBA]