導入：なぜフィルハンドルの操作が重要なのか
Excel業務において、データ入力や数式のコピーは避けて通れません。毎回「コピー（Ctrl+C）」→「貼り付け（Ctrl+V）」を繰り返していると、時間がかかるだけでなく、範囲指定のミスも発生しやすくなります。Excelの「フィルハンドル」を正しく使いこなすことで、マウス操作だけで瞬時にデータを展開でき、作業効率が格段に向上します。本記事では、手動操作のコツと、それをVBAで自動化する際のポイントを解説します。
基礎知識：フィルハンドルとオートフィルの仕組み
フィルハンドルとは、選択したセル（または範囲）の右下に表示される小さな四角い点のことです。ここにマウスカーソルを合わせると、カーソルが「＋」の形に変わります。
通常、文字列などのコピーはドラッグだけで可能ですが、日付や数字など「連続データ」になりやすいデータの場合、ドラッグすると勝手に数値が増えてしまうことがあります。実務で「同じ値をコピーしたい」という場面では、Ctrlキーを押しながらドラッグするのが鉄則です。この操作を覚えるだけで、意図しないデータ変化を防ぐことができます。
実装/解決策：VBAでフィルハンドル操作を再現する
VBAでフィルハンドル操作を行うには、RangeオブジェクトのAutoFillメソッドを使用します。手動操作と同様に、起点となるセル範囲を指定し、コピー先の範囲をDestination引数で指定することで実行可能です。
サンプルプログラム：範囲を指定してオートフィルを実行する
以下のコードは、A1セルに入力された数式や値を、A10セルまでコピーする実用的なマクロです。
Sub AutoFillExample()
‘ 画面更新を停止して処理を高速化
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)
‘ 起点となるセル範囲（A1）
Dim sourceRange As Range
Set sourceRange = ws.Range(“A1”)
‘ コピー先の範囲（A1からA10まで）
Dim destinationRange As Range
Set destinationRange = ws.Range(“A1:A10”)
‘ AutoFillメソッドを実行
‘ Type:=xlFillDefaultは、手動ドラッグと同じ挙動を再現します
sourceRange.AutoFill Destination:=destinationRange, Type:=xlFillDefault
Application.ScreenUpdating = True
MsgBox “A1の内容をA10までコピーしました。”
End Sub
応用・注意点：現場で陥りやすいバグを回避する
VBAでオートフィルを行う際、最も多いエラーは「起点セルとコピー先範囲が接していない」というものです。AutoFillメソッドは、起点となるセルが含まれていない範囲を指定するとエラー（実行時エラー1004）が発生します。
また、コピー先の範囲を動的に取得したい場合は、Cells(Rows.Count, 1).End(xlUp).Rowなどを活用して、最終行を正しく判定してください。手動でのフィルハンドル操作が直感的な分、VBA化する際は「どの範囲に展開するか」の論理的な定義が重要になります。まずは単純な固定範囲でテストを行い、慣れてきたら変数を使って柔軟な範囲指定に挑戦してみてください。
