使用VBA从整个工作表中删除格式

Question

使用VBA，我试图清除所有活动工作表的所有格式。

Dim ws As Worksheet
 Set ws = ThisWorkbook.ActiveSheet
 With ws
           .ClearFormats
 End With

但我收到以下错误：

然而，使用与.UsedRange相同的代码可以正常工作：

With .UsedRange
    .ClearFormats
End With

请告诉我如何解决这个问题以格式化整张表格！

Answer 1

ClearFormats是Range的一种方法，因为ActiveSheet是Worksheet

您可以使用

ThisWorkbook.ActiveSheet.Cells.ClearFormats

（Cells是工作表中所有单元格的范围）