Excel/VBA：罫線も文字色もフォントスタイルも一気にクリアする方法

Excel/VBAでよく使うのが「シートの初期化」です。

単に文字列をクリアにするだけのパターンと、セル背景色や罫線までもクリアにするケースもあります。

文字を消すだけならそれほどでもないのですが、背景色や罫線なんかを消したい場合、その都度「マクロの記録」を使っているんじゃないでしょうか。

今回はすべてのスタイルを消すコードを書き留めておきます。各パートにコメント記載していますが必要に応じて除外してください。

[ad#top-1]

ソースコード

Sub ClearRange(rng)
  Dim area As Range
  Set area = Range(rng)

  '文字消去
  area.ClearContents
  '文字色のクリア
  area.Font.ColorIndex = xlAutomatic
  area.Font.TintAndShade = 0
  area.Interior.Pattern = xlNone
  area.Interior.TintAndShade = 0
  area.Interior.PatternTintAndShade = 0
  '罫線のクリア
  area.Borders(xlDiagonalDown).LineStyle = xlNone
  area.Borders(xlDiagonalUp).LineStyle = xlNone
  area.Borders(xlEdgeLeft).LineStyle = xlNone
  area.Borders(xlEdgeTop).LineStyle = xlNone
  area.Borders(xlEdgeBottom).LineStyle = xlNone
  area.Borders(xlEdgeRight).LineStyle = xlNone
  area.Borders(xlInsideVertical).LineStyle = xlNone
  area.Borders(xlInsideHorizontal).LineStyle = xlNone
  '文字スタイルのクリア
  area.Font.Bold = False
  area.Font.Italic = False
  area.Font.Underline = xlUnderlineStyleNone
End Sub
 

 

上記のマクロをコピペしてもらって、次のようにクリアしたいセルの範囲を引数として渡すと、その範囲でクリアできます。以下はB3セル～E14セルの範囲をクリアにする例です。

Call ClearRange("B3:E14")
 

 

実行

上記プログラムを実行すると以下のようにすべてクリアとなります。

 

[ad#ad-1]

 - Excel, VBA