VBA将条件添加到行删除
问题描述:
我正在对宏代码进行最后的修改,但是我包含的最后一行是用于删除A列中的数据为空的行。当我遇到空白行的情况时,它可以正常工作,但是如果不需要行删除,我会遇到一个调试问题。如何在下面发布的代码更改为只在基于A列中没有信息的额外空行时工作,并且在不需要删除时工作相同。VBA将条件添加到行删除
Range("A7:A" & LastRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
答
计数范围内的空行第一,如果有再执行删除代码,否则只是通过:
If Application.WorksheetFunction.CountBlank(Range("A1:A" & LastRow)) > 0 Then
Range("A1:A" & LastRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
裹在'上的错误恢复Next'然后'对错误转到0'忽略由于没有空白而导致的任何错误。 –