谁能简化/优化Excel/VBA中的代码？

这是一个简单的代码，我从运行宏得到的，但它需要很长时间来处理。有擅长vba的人能解决这个问题吗？ 谢谢

稍微好一点

Sub ClearAll()
    Application.ScreenUpdating = False
    Range("H2:H11").ClearContents
    With Range("A2:A100")
        .ClearContents
        .ClearFormats
    End With
    Sheets(2).Cells.ClearContents
    Sheets(3).Rows("2:" & Rows.Count).Delete
    Sheets(1).UsedRange.Select
    ThisWorkbook.Save
    Application.ScreenUpdating = True
End Sub

---

（眼泪夺眶而出。）

任何擅长vba的人都能解决这个问题吗？

我不擅长vba，但我可以告诉你，请尝试并采纳这些建议。如果你仍然困在那里，那就发布新代码。你最近23天使用Excel和VBA的情况如何？嗯，我以前见过有人这样做。你的第二份声明有什么意义吗？你只能用一次。为什么不直接使用

表单（2）.Cells.ClearContents

？不。。。你说得对。我之所以这么说是因为当我开始修改代码时，我认为会有更多的语句出现。。。这是多余的。根据你的评论更新

Sub ClearAll()
    Application.ScreenUpdating = False
    Range("H2:H11").ClearContents
    With Range("A2:A100")
        .ClearContents
        .ClearFormats
    End With
    Sheets(2).Cells.ClearContents
    Sheets(3).Rows("2:" & Rows.Count).Delete
    Sheets(1).UsedRange.Select
    ThisWorkbook.Save
    Application.ScreenUpdating = True
End Sub