清除各sheet数据

'**********************************************************************************
'*   函数名称：clearData
'*   功    能：清除各sheet数据
'*
'*   入口参数：无
'*   出口参数：无
'*
'*   返 回  值 ：无
'************************************************************************************
Public Sub clearData()
    Dim ws As Worksheet
    Dim mainSwName As String
    Dim rowCount As Long
    
    Application.ScreenUpdating = False
    
    mainSwName = "功能主页"
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = mainSwName Then
            ws.Range("A:A").ClearContents
        Else
            rowCount = ws.UsedRange.Rows.Count
            ws.Rows("3:3").ClearContents
            ws.Rows("4:" & rowCount).Delete Shift:=xlUp
            ws.Range("A4") = "  "
        End If
    Next
   
    setFocus (mainSwName)

    Application.ScreenUpdating = True
    
    ThisWorkbook.Save
    
End Sub