如何从整个工作表中删除下划线？

Question

我想删除Underline工作表中的所有内容，并且我想为此使用宏。

我只能找到这段代码，它添加了Underline.

Worksheets("Sheet1").Activate 
ActiveCell.Font.Underline = xlUnderlineStyleSingle

Answer 1

像这样：

ActiveWorkbook.Worksheets("Sheet1").UsedRange.Font.Underline = False