【Excel VBA】ウィンドウ枠を固定して、常に見出しを表示する方法 (FreezePanes)

2025年8月11日

データが縦横に長い大きな表をExcelで扱っていると、下にスクロールした時に見出し行が見えなくなったり、右にスクロールした時に項目列が見えなくなったりして、どのデータが何を示しているのか分かりにくくなることがあります。

Excelの「ウィンドウ枠の固定」機能を使えばこの問題は解決できますが、VBAを使えばその設定も自動化できます。この記事では、VBAでウィンドウ枠を固定し、表の操作性を向上させる基本的な方法を解説します。

ウィンドウ枠固定の基本ルール

VBAでウィンドウ枠を固定する際の最も重要なルールは、**「アクティブセル（選択されているセル）を基準に固定される」**という点です。

アクティブセルの上にあるすべての行が固定されます。
アクティブセルの左にあるすべての列が固定されます。

このルールさえ覚えておけば、自由自在に固定位置をコントロールできます。例えば、

先頭行だけを固定したい場合 → A2セルを選択します。
先頭列だけを固定したい場合 → B1セルを選択します。
先頭行と先頭列の両方を固定したい場合 → B2セルを選択します。

完成したVBAコード

ここでは、最もよく使われる3つのパターンのコードを紹介します。

① 先頭行（見出し行）のみを固定する

Sub FreezeTopRow()
    ' 念のため、既存のウィンドウ枠の固定を一旦解除
    ActiveWindow.FreezePanes = False
    
    ' A2セルを選択（これにより、1行目が固定される）
    Range("A2").Select
    
    ' ウィンドウ枠を固定
    ActiveWindow.FreezePanes = True
End Sub

② 先頭列のみを固定する

Sub FreezeFirstColumn()
    ' 念のため、既存のウィンドウ枠の固定を一旦解除
    ActiveWindow.FreezePanes = False

    ' B1セルを選択（これにより、A列が固定される）
    Range("B1").Select
    
    ' ウィンドウ枠を固定
    ActiveWindow.FreezePanes = True
End Sub

③ 先頭行と先頭列の両方を固定する

Sub FreezeTopRowAndFirstColumn()
    ' 念のため、既存のウィンドウ枠の固定を一旦解除
    ActiveWindow.FreezePanes = False

    ' B2セルを選択（これにより、1行目とA列が固定される）
    Range("B2").Select
    
    ' ウィンドウ枠を固定
    ActiveWindow.FreezePanes = True
End Sub