1 '删除空行
2 Sub DeleteEmptyRows()
3 Dim LastRow As Long, r As Long
4 LastRow = ActiveSheet.UsedRange.Rows.Count
5 LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
6
7 For r = LastRow To 1 Step -1
8 If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
9 Next r
10
11 End Sub
12 '删除空列
13 Sub DeleteEmptyColumns()
14 Dim LastColumn As Long, c As Long
15 LastColumn = ActiveSheet.UsedRange.Columns.Count
16 LastColumn = LastColumn + ActiveSheet.UsedRange.Column
17
18 For c = LastColumn To 1 Step -1
19 If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete
20 Next c
21
22 End Sub
