VBA删除空白行列

 '删除空行

 Sub DeleteEmptyRows()

 Dim LastRow As Long, r As Long

 LastRow = ActiveSheet.UsedRange.Rows.Count

 LastRow = LastRow + ActiveSheet.UsedRange.Row -

 For r = LastRow To  Step -

     If WorksheetFunction.CountA(Rows(r)) =  Then Rows(r).Delete

     Next r

 End Sub

 '删除空列

 Sub DeleteEmptyColumns()

 Dim LastColumn As Long, c As Long

 LastColumn = ActiveSheet.UsedRange.Columns.Count

 LastColumn = LastColumn + ActiveSheet.UsedRange.Column

 For c = LastColumn To  Step -

     If WorksheetFunction.CountA(Columns(c)) =  Then Columns(c).Delete

     Next c

 End Sub