Excel VBA: 清空所有工作表

  • 清空单一工作表
Sub ClearContents ()
    Application.Calculation = XlManual
    Application.ScreenUpdating = False
         Sheets("worksheet_name").Cells.ClearContents

    Application.ScreenUpdating = True
End Sub
  • 清空所有工作表
Sub clear_all_worksheets()
    Dim ws as worksheet
    For each ws in ThisWorkbook.Worksheets
        ws.Cells.ClearContents
    Next
End Sub
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容