たとえば、ExcelVBAでセルA5に下線があるかの判定は以下の感じです。 If Range("A5").Borders(xlEdgeBottom).LineStyle = xlContinuous Then MsgBox "下線あり" Else MsgBox "下線なし" End If ◆Bordersを以下のような引数に換えれば『下端(下線)』以外にも使えます。 Bordersの引数 罫線の位置 xlEdgeTop セル上端 xlEdgeBottom セル下端(下線) xlEdgeLeft セル左端 xlEdgeRight セル右端 xlInsideHorizontal 内側横線 xlInsideVertical 内側縦線 xlDiagonalDown 右下がり斜線 xlDiagonalUp 右上がり斜線 ◆LineStyleのxlContinuous比較を以下のように換えれば『実線』