文字に下線を引く: Font.Underline

文字に斜線を引くには、.Underlineプロパティを指定します。

Sub test()   Cells(2, 2).Font.Underline = xlUnderlineStyleSingle End Sub

下線を消去するには、値をxlUnderlineStyleNoneにセットします。

Sub test()   Cells(2, 2).Font.Underline = xlUnderlineStyleNone End Sub

ビジネスプロフェッショナルのExcel術 (日経BPムック)