Excel VBA シート内の罫線を一括削除したい(Selection.Borders)

シート内の罫線を一括削除したい場合、「Selection.Borders」を記述する。

以下はその一例。

 

 

 

    'シートを指定する(ここでは"Sheet1")

    Worksheets(1).Activate

 

    '全セル指定

    Cells.Select

    '例: 下のように記述することで範囲指定できる。

    'ActiveSheet.Range(Cells(1, 1), Cells(100, 39)).Select

 

    '罫線消去

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    Selection.Borders(xlEdgeLeft).LineStyle = xlNone

    Selection.Borders(xlEdgeTop).LineStyle = xlNone

    Selection.Borders(xlEdgeBottom).LineStyle = xlNone

    Selection.Borders(xlEdgeRight).LineStyle = xlNone

    Selection.Borders(xlInsideVertical).LineStyle = xlNone

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

 

    'その他例: 必要があればセルの書式設定も統一する。

    'Selection.ClearContents                             'セルに入力された値を削除

    'Selection.NumberFormatLocal = "@"          '書式を文字列にする

    'Selection.Font.ColorIndex = 0                    '文字色の指定なし

    'Selection.Interior.ColorIndex = xlNone        'セルの背景色なし