VBA 宏帮助 - 清除 Excel 2016 中的表格和单元格格式

Question

我正在尝试从整个工作簿中清除所有表格格式和单元格格式。 这段代码让我大部分时间都在那里，但我不想清除单元格内容。

我尝试通过删除 Selection.ClearContents 字符串来修改此行为。 但是，这使得代码不起作用。

任何帮助将不胜感激。

谢谢！

Sub ClearAll()
    Set wbook = ActiveWorkbook
    For Each sht In wbook.Worksheets
       sht.Activate
       sht.Cells.Select
       Selection.ClearContents
       Selection.ClearFormats ' edit: clear formats too
       sht.Cells(1, 1).Select ' edit: select the first cell to cancel selection of the whole sheet
    Next sht

End Sub

Answer 1

不确定你所说的非功能性是什么意思。无论如何，您无需选择或激活任何内容。

Sub ClearAll()
Dim sht As Worksheet, wbook As Workbook, t As ListObject
Set wbook = ActiveWorkbook
For Each sht In wbook.Worksheets
    For Each t In sht.ListObjects
        t.Unlist
    Next t
    sht.Cells.ClearFormats
Next sht
End Sub