清除各sheet数据

最新推荐文章于 2025-11-12 09:53:22 发布

原创最新推荐文章于 2025-11-12 09:53:22 发布 · 858 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #each

VBA 专栏收录该内容

6 篇文章

订阅专栏

'**********************************************************************************
'*   函数名称：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