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

这是一个学习的代码，做了解析，做为个人保存，学习之用。

代码语言：javascript复制

'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

vba

0 人点赞