实例18-多个工作表清除区域

Private Sub CommandButton清除_Click()

'判断工作簿名，工作表名不为空

With ThisWorkbook.Worksheets("操作界面")

     If Trim(.Cells(2, "C").Value) = "" Or Trim(.Cells(6, "C").Value) = "" Then

     MsgBox "参数不能为空"

     Exit Sub

     End If

'On Error GoTo 处理出错

'定义变量

Dim wbname As String

wbname = Trim(.Cells(2, "C").Value)

Dim clearrange As String

clearrange = Trim(.Cells(6, "C").Value)

End With

'处理表格

With Workbooks(wbname)

'循环判断

Dim i

For i = 1 To .Worksheets.Count

    .Worksheets(i).Range(clearrange).ClearFormats '清除格式

    .Worksheets(i).Range(clearrange).ClearContents  '清除内容

Next i

End With

Workbooks(wbname).Save

MsgBox "处理完成"

Workbooks(wbname).Activate

ActiveWindow.WindowState = xlMaximized

Exit Sub

处理出错:

MsgBox Err.Description

End Sub