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

Question

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

我只能找到这个代码，它添加了Underline。

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

Answer 1

像这样：

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