仕事でよく登場するExcelの”あの”表の罫線を引くのが面倒なのでマクロを書いた

2020/09/06

会社でこんな表をExcelで作ることってままあると思うんですよね。B列C列のようなカテゴリごとに罫線を引くやつ。これ、割と面倒です。カテゴリごとセルを選択して罫線消す→外枠罫線を入れる、の繰り返しなので。作成後に行を挿入するとその部分をまたやり直しと…。

なので、マクロで作りました。

Sub 表罫線を整える()
  mySheet = ActiveSheet.Name
  開始行 = Selection(1).Row
  終了行 = Selection(Selection.Count).Row
  開始列 = Selection(1).Column
  終了列 = Selection(Selection.Count).Column

  For r = 開始行 To 終了行
    For c = 開始列 To 終了列
      If Sheets(mySheet).Cells(r + 1, c) = "" Then
        If Sheets(mySheet).Cells(r + 1, c).Borders(xlEdgeLeft).LineStyle <> xlNone Then
          Sheets(mySheet).Cells(r, c).Borders(xlEdgeBottom).LineStyle = xlNone
        End If
      End If
    Next c
  Next r
End Sub

外枠罫線エリア全体を選択して実行するとサクッと罫線を引き直してくれると。