【VBA】罫線を範囲指定の変数で引く方法｜Range変数で崩れない表を作る実務設計

Excelで帳票を自動生成するとき、「最後に罫線を引いて整える」工程はほぼ必ず出てきます。ところが罫線処理は、書き方を雑にすると一気に壊れやすくなります。たとえば「SelectしてからBorder」みたいな書き方は、画面状態やアクティブセルに引っ張られて不具合が起きがちです。
この記事では、範囲（Range）を変数で保持して、その変数に対して罫線を引くという王道の考え方を、実務で使える設計に落とし込みます。単に「罫線を引ける」だけでなく、後で仕様変更しても直しやすい構造、他マクロに流用しやすい構造を前提に説明します。

✅ VBAで「範囲変数」に罫線を引く基本設計

罫線は見た目の話に見えますが、実務では「成果物の品質」と直結します。ここが雑だと、帳票の信頼感が一気に落ちますし、手直しが発生して結局コストが跳ねます。さらに、罫線処理はセル範囲のズレに弱く、場当たり的に書くと後から必ず破綻します。特に「最終行が変わる」「列が増える」「ヘッダーが2段になる」などの変更が入った瞬間、コードが読めない人ほど直せません。だから最初から、範囲を変数化して“どこに線を引くか”を明確にする必要があります。この記事の前半は、失敗しやすい書き方を避けつつ、堅い基本形を作るところから始めます。ここを押さえると、以後の罫線処理が全部ラクになります。

・結論：Rangeを変数に入れて、その変数だけを操作する

考え方はシンプルです。
「罫線を引きたい範囲」を Range 変数（または引数）で持ち、targetRange.Borders(...) に対して処理します。

やらない方がいい典型例（壊れやすい）

• Range("A1:D10").Select → Selection.Borders...
• ActiveSheet / ActiveCell に依存した書き方
• 罫線の種類（外枠・内側・縦・横）がコード中に散らばる

やるべき形（壊れにくい）

• 対象範囲を Set targetRange = ... で明示
• 罫線処理を Sub ApplyBorder(...) にまとめる
• “外枠だけ”“格子”“横線だけ”などを関数の引数で表現する

✅ Range変数で範囲指定して外枠罫線を引く

罫線を引くと言っても、実務でまず求められるのは「外枠が揃っていること」です。外枠がズレていると帳票が一気に素人っぽく見えますし、提出物としての品質が落ちます。しかも外枠は、データ件数が増減すると範囲が変わるので、固定アドレスで書くとすぐ破綻します。さらに、外枠だけ引きたいのに「内側まで全部線が出た」という事故も多いです。だから最初は、外枠だけを狙って引くコードを、Range変数前提で固めておくのが安全です。ここを最小単位として持っておくと、後から「内側も追加」「ヘッダーだけ太線」などの要望にも素直に拡張できます。

・手順：Range変数を作って外枠だけ引く（最小構成）

1. 罫線を引きたいシートを変数で保持する
2. 罫線を引きたい範囲を Range 変数に Set する
3. Borders(xlEdge...) を使って外枠だけ設定する

Option Explicit

Public Sub DrawOuterBorderByRangeVariable()
    Dim targetSheet As Worksheet
    Dim borderRange As Range
    
    Set targetSheet = ThisWorkbook.Worksheets("Report")
    Set borderRange = targetSheet.Range("B2:F12") ' ←ここを変数で保持
    
    Call ApplyOuterBorder(borderRange)
End Sub

Private Sub ApplyOuterBorder(ByVal targetRange As Range)
    ' 外枠だけを引く（内側は触らない）
    With targetRange
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        
        .Borders(xlEdgeLeft).Weight = xlThin
        .Borders(xlEdgeTop).Weight = xlThin
        .Borders(xlEdgeRight).Weight = xlThin
        .Borders(xlEdgeBottom).Weight = xlThin
    End With
End Sub

・なぜこの書き方にしているのか

• 罫線対象を borderRange に閉じ込めることで、誤って別範囲に線を引く事故を防げます。
• ApplyOuterBorder を分けると、別帳票でも「外枠を引く」処理をそのまま流用できます。
• 「どこに罫線を引くか」と「どういう罫線を引くか」を分離すると、仕様変更が入っても修正箇所が明確になります。

・別の書き方と比べたメリット

• Select / Selection を使う方法は、画面操作と結びついて不具合が出やすいです。
• Range変数方式は、アクティブシートに依存せず、テストもしやすいのが強みです。

・実務で気をつけるポイント

• Worksheets("Report") のシート名変更が起きる現場なら、シート名を定数化するか、存在チェックを入れてください。
• 外枠だけ引く処理は、内側罫線と混ぜないのがコツです（混ぜると「内側を消したい」時に面倒になります）。

✅ 最終行・最終列に追従して範囲変数を作り罫線を引く

実務の帳票は、固定サイズの表より「件数が変動する表」が圧倒的に多いです。にもかかわらず、罫線範囲を固定アドレスで書いてしまうと、件数増減のたびに帳票が崩れます。そして、崩れた帳票ほど人が手で直し、いつの間にか「自動化したはずなのに毎回手直し」が残ります。ここが積み重なると、マクロの価値そのものが疑われます。だから、データの最終行を拾って範囲変数を組み立てるところまでを、最初から型として持っておくべきです。さらに「どの列を基準に最終行を取るか」は設計です。ここを曖昧にすると、空白行が混じった瞬間に壊れます。ここでは、現場で破綻しにくい取り方を紹介します。

・手順：最終行からRange変数を組み立てる

1. データの基準列（例：A列）を決める
2. End(xlUp) で最終行を取得する
3. ヘッダーを含めた範囲を Range(Cells, Cells) で作る
4. その範囲変数に罫線処理を適用する

Option Explicit

Public Sub DrawBordersForDynamicTable()
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim headerRow As Long
    Dim startCol As Long
    Dim endCol As Long
    
    Dim tableRange As Range
    
    Set targetSheet = ThisWorkbook.Worksheets("Report")
    
    headerRow = 2
    startCol = 2 ' B列
    endCol = 6   ' F列
    
    lastRow = GetLastRow(targetSheet, 2) ' B列を基準に最終行
    
    If lastRow < headerRow Then Exit Sub ' データがない
    
    Set tableRange = targetSheet.Range( _
        targetSheet.Cells(headerRow, startCol), _
        targetSheet.Cells(lastRow, endCol) _
    )
    
    Call ApplyGridBorder(tableRange)
End Sub

Private Function GetLastRow(ByVal ws As Worksheet, ByVal baseColumn As Long) As Long
    ' 指定列を基準に最終行を返す
    GetLastRow = ws.Cells(ws.Rows.Count, baseColumn).End(xlUp).Row
End Function

Private Sub ApplyGridBorder(ByVal targetRange As Range)
    ' 外枠 + 内側の格子（縦横）を設定
    With targetRange
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        
        ' 念のため「格子」を明示（現場だとLineStyle一括だけで抜けることがあるため）
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    End With
End Sub

・なぜこの書き方にしているのか

• 最終行取得を GetLastRow に分けると、基準列が変わっても修正が一箇所で済みます。
• Range(Cells, Cells) で範囲を作ると、列追加・列移動が起きても「列番号」を変えるだけで対応できます。
• 罫線処理も ApplyGridBorder に集約することで、帳票が増えても同じ部品を使い回せます。

・別の書き方と比べたメリット

• UsedRange で範囲を取る方法は、書式だけ残っているシートで範囲が膨らみ、罫線が暴発しやすいです。
• GetLastRow は「データの基準列」を設計で決められるので、意図した範囲が取りやすいです。

・実務で気をつけるポイント

• 基準列に空白が混ざる可能性があるなら、別列にするか、空白除外のロジックを検討してください。
• 罫線を引く前に、既存の罫線が混在しているシートだと見た目が崩れるので、次の章の「罫線クリア」もセットで持つのが安全です。
  
  実務では「どの列を基準に最終行を取得するか」で、罫線の範囲や帳票の安定性が大きく変わります。
  Rows を使った最終行の取得パターンや、壊れにくい考え方については、
  【VBA】最終行を取得する方法｜Rowsを活用して効率的にデータ範囲を特定する で詳しく整理しています。

✅ 罫線の上書き事故を防ぐための「クリア→適用」手順

罫線処理でよくある事故は、「前の書式が残っていて、結果が予想と違う」パターンです。特にテンプレートをコピーして使う現場では、罫線が部分的に残っていたり、過去の太線が混ざっていたりします。ここで雑に上書きすると、表の一部だけ線が太い、二重線が入る、縦だけ消えない…といった“地味にイラつく崩れ”が起きます。そしてこの手の崩れは、報告しにくいのに品質を下げます。だから、「一度クリアしてから適用する」を基本動作として持っておくのが安全です。もちろん、すべてをクリアすると他の装飾まで消える場合もあります。なので、対象範囲を変数で限定して、必要な範囲だけに適用するのがポイントです。

・手順：対象範囲だけ罫線をクリアしてから引く

1. 対象範囲をRange変数で保持
2. .Borders.LineStyle = xlNone で罫線だけ消す
3. 必要な罫線（外枠/格子/横線など）を再適用する

Option Explicit

Public Sub ClearAndDrawBorders()
    Dim ws As Worksheet
    Dim targetRange As Range
    
    Set ws = ThisWorkbook.Worksheets("Report")
    Set targetRange = ws.Range("B2:F50")
    
    Call ClearBorders(targetRange)
    Call ApplyGridBorder(targetRange)
End Sub

Private Sub ClearBorders(ByVal targetRange As Range)
    ' 罫線だけを消す（塗りつぶしやフォントには触れない）
    targetRange.Borders.LineStyle = xlNone
End Sub

・なぜこの書き方にしているのか

• 「上書き」より「再生成」の方が、見た目が安定します。
• 範囲変数で限定しているので、他の装飾（見出しの太線など）を残したい場合も制御しやすいです。

・別の書き方と比べたメリット

• 個別の xlEdgeTop だけを上書きする方法は、過去の xlInside... が残るなど、混在事故が起きやすいです。
• 一度 xlNone に落とすと、結果の再現性が高くなります。

・実務で気をつけるポイント

• 罫線以外の装飾（色・太字）もテンプレから引き継ぎたいなら、クリア範囲を“表の本文だけ”に限定するのが安全です。
• 見出し行だけ太線にする場合は、本文範囲と見出し範囲を分けて適用してください（次章で扱います）。

✅ 見出しだけ太線・本文は細線にする実務パターン

実務帳票では「見出しは強く、本文は控えめ」が基本です。全部を同じ線幅にすると、視線誘導が弱くなり、読みづらい表になります。逆に全部太線だと、情報量が多い表ほど圧が強くなり、見る側が疲れます。つまり罫線は“飾り”ではなく“情報設計”です。だから、「見出しは太線」「本文は細線」「外枠は太線」など、よくある要求に耐える型を持っておくと、帳票の見た目が一気に安定します。ここで重要なのは、罫線の種類をコード中に散らさないことです。散らすと「太さだけ変えて」と言われた時に修正漏れが出ます。罫線設定を関数化して、意図を名前に閉じ込めるのが実務的です。

・手順：範囲を分割して別設定で罫線を引く

1. 表全体範囲をRange変数で持つ
2. 見出し行範囲、本文範囲もRange変数で分ける
3. それぞれに適切な罫線を適用する

Option Explicit

Public Sub DrawHeaderAndBodyBorders()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Dim tableRange As Range
    Dim headerRange As Range
    Dim bodyRange As Range
    
    Set ws = ThisWorkbook.Worksheets("Report")
    lastRow = GetLastRow(ws, 2) ' B列基準
    
    If lastRow < 2 Then Exit Sub
    
    Set tableRange = ws.Range(ws.Cells(2, 2), ws.Cells(lastRow, 6)) ' B2:F(最終)
    Set headerRange = ws.Range(ws.Cells(2, 2), ws.Cells(2, 6))      ' 見出し1行
    Set bodyRange = ws.Range(ws.Cells(3, 2), ws.Cells(lastRow, 6))  ' 本文
    
    Call ClearBorders(tableRange)
    
    Call ApplyOuterBorderWithWeight(tableRange, xlMedium) ' 外枠はやや太く
    Call ApplyGridBorder(bodyRange)                       ' 本文は細い格子
    Call ApplyBottomBorder(headerRange, xlMedium)         ' 見出し下だけ太線
End Sub

Private Sub ApplyOuterBorderWithWeight(ByVal targetRange As Range, ByVal weight As XlBorderWeight)
    With targetRange
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        
        .Borders(xlEdgeLeft).Weight = weight
        .Borders(xlEdgeTop).Weight = weight
        .Borders(xlEdgeRight).Weight = weight
        .Borders(xlEdgeBottom).Weight = weight
    End With
End Sub

Private Sub ApplyBottomBorder(ByVal targetRange As Range, ByVal weight As XlBorderWeight)
    With targetRange.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = weight
    End With
End Sub

・なぜこの書き方にしているのか

• 表を「全体」「見出し」「本文」に分けることで、要求変更に強くなります。
• ApplyBottomBorder のように目的別の部品を作ると、後から「見出しが2段になった」「小計行にも太線」などが来ても拡張しやすいです。
• 罫線の太さや種類を引数に持たせると、帳票の“デザインルール”をコード側で統一できます。

・別の書き方と比べたメリット

• コード中で .Borders(xlEdgeBottom) を何度も書くより、部品化した方が意味が明確で保守しやすいです。
• “太線を入れる場所”が関数名で読めるので、後から読む人が迷いにくいです。

・実務で気をつけるポイント

• 見出しが2行の帳票は多いので、headerRange は行番号を固定せず、引数化しても良いです。
• 小計行・合計行に線を入れる場合は、その行範囲だけ別Rangeで切り出して同様に適用してください。

✅ 複数範囲に同じ罫線を適用する｜繰り返し設計

実務だと、同じシート内に表が複数あることがあります。たとえば「上に集計表、下に明細表」「左に実績、右に前年差」などです。こういうときにありがちなのが、表ごとに同じ罫線コードをコピペして増殖させるパターンです。これは後から必ず破綻します。どれか一つだけ修正漏れが出て、見た目が揃わなくなりますし、仕様変更が入った時に地獄になります。だから、複数範囲への適用は「配列」「Collection」「Union」などで管理し、同じ部品を回す設計に寄せるのが実務的です。ここを押さえると、帳票の種類が増えても、罫線処理は増えません。

・手順：RangeをCollectionに入れて同じ処理を回す

1. 対象範囲をRange変数で複数作る
2. Collectionに入れる
3. For Eachで同一処理を適用する

Option Explicit

Public Sub ApplyBordersToMultipleRanges()
    Dim ws As Worksheet
    Dim rangesToFormat As Collection
    Dim targetRange As Range
    
    Set ws = ThisWorkbook.Worksheets("Report")
    Set rangesToFormat = New Collection
    
    rangesToFormat.Add ws.Range("B2:F12")
    rangesToFormat.Add ws.Range("B15:F30")
    rangesToFormat.Add ws.Range("H2:L12")
    
    For Each targetRange In rangesToFormat
        Call ClearBorders(targetRange)
        Call ApplyOuterBorderWithWeight(targetRange, xlMedium)
        Call ApplyGridBorder(targetRange)
    Next targetRange
End Sub

・なぜこの書き方にしているのか

• 表が増えても「処理を増やす」のではなく「データ（範囲）を増やす」だけで済みます。
• “同じルールで整形される”ことが保証されるので、帳票品質が安定します。

・別の書き方と比べたメリット

• コピペ増殖は最初は速いですが、後で壊れます。
• Collectionに寄せると、罫線のルールは一箇所に集約でき、変更が楽になります。

・実務で気をつけるポイント

• Rangeの追加場所が多いなら、セルに定義して読み取る設計（開始セル/終了セル）にすると運用が楽です。
• 表の位置が可変なら、固定アドレスではなく、見出し文字から検索して範囲を作る方式も検討できます。

✅ 高速化と事故防止：罫線処理を“必要な範囲だけ”に絞る

罫線は書式操作なので、広範囲にやるほど遅くなります。特に、行数が数千・数万になったとき、罫線を全部格子で引くとExcelが重くなりがちです。ここで「とりあえず全部に格子」は、後で必ず問題になります。さらに、罫線処理が遅いと「画面が固まった」と感じられ、ユーザーの体感品質が落ちます。だから実務では、罫線は“必要な範囲だけ”に絞る設計が重要です。また、罫線処理の前後で画面更新や計算を制御することで、体感速度が改善します。ただし、速度対策は雑に入れると逆に事故ります。ここでは、壊れにくい入れ方を紹介します。

・手順：画面更新・計算を制御しつつ必要範囲にだけ適用する

1. 対象範囲を確定してから罫線処理する（途中で範囲を増やさない）
2. Application.ScreenUpdating を一時的に止める
3. 計算モードを必要に応じて退避・復元する

Option Explicit

Public Sub DrawBordersWithPerformance()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim lastRow As Long
    
    Dim originalCalc As XlCalculation
    Dim originalScreenUpdating As Boolean
    
    Set ws = ThisWorkbook.Worksheets("Report")
    lastRow = GetLastRow(ws, 2)
    If lastRow < 2 Then Exit Sub
    
    Set targetRange = ws.Range(ws.Cells(2, 2), ws.Cells(lastRow, 6))
    
    originalCalc = Application.Calculation
    originalScreenUpdating = Application.ScreenUpdating
    
    On Error GoTo CleanUp
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Call ClearBorders(targetRange)
    Call ApplyOuterBorderWithWeight(targetRange, xlMedium)
    Call ApplyGridBorder(targetRange)
    
CleanUp:
    Application.Calculation = originalCalc
    Application.ScreenUpdating = originalScreenUpdating
End Sub

・なぜこの書き方にしているのか

• 元の設定を退避して必ず戻すのが事故防止の基本です。
• On Error GoTo CleanUp を入れることで、途中でエラーが起きても環境が壊れません。
• 罫線対象を targetRange に確定してから処理するので、不要範囲に書式を撒き散らしません。

・別の書き方と比べたメリット

• Application.ScreenUpdating = False だけ入れて戻さないコードは、現場で嫌われます（Excelが戻らない）。
• 退避・復元を型として持つと、他の書式処理にも使い回せます。

・実務で気をつけるポイント

• 計算停止は強力ですが、数式の更新が必要な処理では慎重に使ってください。
• 罫線は“広範囲ほど遅い”ので、件数が大きい帳票は「外枠＋必要な横線」などに寄せる判断も必要です。

✅ 罫線処理を部品化して再利用する｜引数設計の考え方

最後に、罫線処理を“どの帳票でも使える部品”として持つ考え方を整理します。実務では帳票が増えます。部署ごとに微妙に違う、月次と週次で違う、上司の好みで線が太くなる…などが平然と起きます。ここで都度書き捨てていると、運用が破綻します。だから、罫線処理は「部品化して、引数でルールを渡す」形にしておくと強いです。重要なのは、引数を増やしすぎないことです。何でも引数化すると使いにくくなります。最初は「外枠」「格子」「見出し下線」くらいの部品を揃え、必要になったら増やすのが現実的です。

・例：帳票用の“最小部品セット”を作る

• ClearBorders(range)
• ApplyOuterBorderWithWeight(range, weight)
• ApplyGridBorder(range)
• ApplyBottomBorder(range, weight)

この4つがあるだけで、多くの帳票は十分回ります。
「色付き罫線」「点線」「二重線」などが必要になったら、その時点で追加すればOKです。

・実務で使うときの注意点

• 罫線は“見た目”ですが、要件が曖昧なまま作ると手戻りが増えます。外枠・内側・見出しのどこを強調するか、最初に決めてください。
• 既存テンプレを使う場合は、クリア→適用を基本にすると混在事故が減ります。
• 表が巨大になる場合は、格子を全部引くより、必要な境界線だけに寄せる判断が有効です。

✅ VBAで罫線を引くときに、Excel記事から自然に次へ進める話

ここまで「Range変数で範囲を作り、そこに罫線を適用する」設計を整理しました。
もし日々の業務で「表の見た目を整える」作業が頻繁に発生しているなら、罫線だけでなく、フォント・表示形式・列幅・印刷設定まで含めて“帳票生成を一括で整える”発想に進むと、手戻りがさらに減ります。最初は罫線だけでも効果が出ますが、実務では「見た目の統一」が一番効く場面も多いです。罫線処理を部品化できたなら、同じ考え方で他の書式処理も部品化しやすくなります。

✅ まとめ：VBAで範囲変数に罫線を引く実務の型

• 範囲は固定アドレスではなく、Range変数で明示してから操作する
• Select / Selection 依存は避け、対象範囲にだけ処理を閉じ込める
• 罫線は「外枠」「格子」「見出し下線」などに分け、部品化して使い回す
• 罫線の混在事故を防ぐなら、クリア→適用を基本にする
• 件数が大きい表は、必要な範囲だけに絞り、速度と品質を両立する

この型で組んでおくと、表の行数や列数が変わっても崩れにくく、帳票が増えても保守が回ります。次に「小計行だけ太線」「特定列だけ縦線を太く」「合計行は二重線」などの要望が来ても、Range変数で範囲を切って部品を当てるだけで対応できます。必要なら、その“追加要望パターン”に合わせた部品設計も、同じ方針で展開できます。

VBAで罫線を自動化できるようになると、「どこまでExcelで整えるべきか」「次は何を自動化すべきか」といった判断も必要になってきます。
ツール選定や自動化に進む前に、業務改善全体をどう設計すべきかを整理したい方は、
Excel業務改善はどう判断すべきか？ツール・自動化に迷う前の設計思考 もあわせて参考にしてください。