VBA添加条件到行删除

Question

我正在对宏代码进行最后的修改，但是我所包含的行的最后一位用于删除A列中的数据为空的行。当我有一个空白行的情况下它工作正常，但如果不需要删除行我有一个调试问题。如何根据A列中没有信息的额外空白行更改下面发布的代码，并且在不需要删除时也能正常工作。

Range("A7:A" & LastRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Answer 1

首先计算范围内的空白行，如果有，则执行删除代码，否则只传递：

If Application.WorksheetFunction.CountBlank(Range("A1:A" & LastRow)) > 0 Then
    Range("A1:A" & LastRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If