'删除空行
Sub DeleteEmptyRows()
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1For r = LastRow To 1 Step -1If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).DeleteNext rEnd Sub
'删除空列
Sub DeleteEmptyColumns()
Dim LastColumn As Long, c As Long
LastColumn = ActiveSheet.UsedRange.Columns.Count
LastColumn = LastColumn + ActiveSheet.UsedRange.ColumnFor c = LastColumn To 1 Step -1If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).DeleteNext cEnd Sub

    MsgBox ("消息框")

Private Sub CommandButton1_Click()MsgBox ("消息框")
End SubPrivate Sub CommandButton2_Click()Delete_Empty_Rows
End SubPrivate Sub CommandButton3_Click()Delete_Empty_Columns
End Sub
'Option Explicit
'删除所选区空行
Sub Delete_Empty_Rows()Dim rnArea As RangeDim lnLastRow As Long, i As Long, j As LongApplication.ScreenUpdating = FalselnLastRow = Selection.Rows.CountSet rnArea = SelectionIf rnArea.Rows.Count <= 1 ThenMsgBox ("请先选中一块多行包含文字的区域")GoTo LastLineEnd Ifj = 0For i = lnLastRow To 1 Step -1If Application.CountA(rnArea.Rows(i)) = 0 ThenrnArea.Rows(i).Deletej = j + 1End IfNext iIf (lnLastRow - j) > 0 ThenrnArea.Resize(lnLastRow - j).SelectEnd IfApplication.ScreenUpdating = TrueLastLine:End Sub'删除所选区空列
Sub Delete_Empty_Columns()Dim lnLastColumn As Long, i As Long, j As LongDim rnArea As RangeApplication.ScreenUpdating = FalselnLastColumn = Selection.Columns.CountSet rnArea = SelectionIf rnArea.Columns.Count <= 1 ThenMsgBox ("请先选中一块多列包含文字的区域")GoTo LastLineEnd Ifj = 0For i = lnLastColumn To 1 Step -1If Application.CountA(rnArea.Columns(i)) = 0 ThenrnArea.Columns(i).Deletej = j + 1End IfNext iIf (lnLastColumn - j) > 0 ThenrnArea.Resize(, lnLastColumn - j).SelectEnd IfApplication.ScreenUpdating = FalseLastLine:End Sub