excel表格处理当前工作表时,如果有几行中穿插着空白行,把下面代码复制进去,自动删除掉
Sub DeleteBlankRow()
Dim IngFirstRow As Long
Dim IngLastRow As Long
Dim a As Integer
IngFirstRow = ActiveSheet.UsedRange.Row
IngLastRow = IngFirstRow + ActiveSheet.UsedRange.Rows.Count - 1
For a = IngLastRow To IngFirstLow Step -1
If Application.WorksheetFunction.CountA(Rows(a)) = 0 Then
Rows(a).Delete
End If
Next
End Sub
如果要删除空白行,直接把sub以下的代码复制进去就可以了!