VBA删除空白行和空白列代码

'VBA删除空白列
Sub DeleteEmptyRows()
    Dim LastRow As Long, r As Long
    LastRow = ActiveSheet.UsedRange.Rows.Count
    '得到所使用区域的总行数
    LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
'使用区域的总行数+所使用区域的开始第1行用-1

    For r = LastRow To 1 Step -1
        If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
    '使用CountA可计算某一区域（这里批使用的行的）或数组中包含数据的单元格的数目为0，则删除这一行
    Next r
End Sub

'VBA删除空白列
Sub DeleteEmptyColumns()
    Dim LastColumn As Long, c As Long
    LastColumn = ActiveSheet.UsedRange.Columns.Count
        '得到所使用区域的总列数
    LastColumn = LastColumn + ActiveSheet.UsedRange.Column
       '使用区域的总列数+所使用区域开始第1列
    For c = LastColumn To 1 Step -1
        If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete
'如果所指的列包含数据的单元格数目为0，则删除这一列
    Next c
End Sub