小编Gen*_*ost的帖子

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

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

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