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

被折叠的 条评论
为什么被折叠?



