なぜ「マクロ記録」から始めるのか
VBAを学び始めると、まずは「マクロの記録」を使う機会が多いはずです。しかし、記録されたコードをそのまま使うだけでは、データ量が変わった瞬間にエラーになったり、意図しない場所まで処理が及んでしまったりと、実務では不便なことも少なくありません。
今回は、実務で頻繁に発生する「空白セルだけを効率的に処理する」という課題をテーマに、記録したコードをいかにして実用的なプログラムへと成長させるか、その考え方を解説します。
基礎知識：ジャンプ機能とSpecialCellsメソッド
Excelの「ジャンプ」機能（[Ctrl] + [G]を押して[セル選択]をクリック）は、実はVBAで非常に強力な武器になります。
VBAでは、これをSpecialCellsメソッドという命令で実行します。これを使うことで、「範囲内にある空白セル」や「数式が入っているセル」、「定数のみのセル」などを一瞬で特定できます。手作業で一つひとつセルを判定するループ処理を書くよりも、遥かに高速でスマートなコードが書けるようになります。
実装の考え方：マクロ記録の先へ
マクロの記録を行うと、操作したセルのアドレスがそのままコードに書き込まれます（例：Range(“D4:G20”)）。しかし、実務ではデータ件数は毎日変わりますよね。
記録したコードをベースにしつつ、範囲を「現在のデータがある最終行まで」に動的に変更したり、今回紹介する「空白セルのみを選択」というロジックを組み合わせることで、どんなデータ量でも対応できる柔軟なツールになります。
サンプルプログラム：空白セルに斜線を引く
以下のコードは、選択した範囲内の「空白セル」だけに斜線を引くプログラムです。マクロ記録で得たコードを整理し、実務で使いやすい形に整えたものです。
Sub SetDiagonalLineOnBlanks()
‘ 画面更新を停止して処理を高速化
Application.ScreenUpdating = False
On Error Resume Next ‘ 空白セルがない場合にエラーで止まるのを防ぐ
‘ アクティブな範囲内で空白セルのみを特定して選択
Dim targetRange As Range
Set targetRange = Selection.SpecialCells(xlCellTypeBlanks)
‘ 空白セルが存在する場合のみ処理を実行
If Not targetRange Is Nothing Then
With targetRange.Borders(xlDiagonalDown)
.LineStyle = xlContinuous ‘ 実線を引く
.Weight = xlThin ‘ 線の太さを指定
End With
End If
On Error GoTo 0 ‘ エラーハンドリングを元に戻す
Application.ScreenUpdating = True
MsgBox “空白セルへの斜線設定が完了しました。”
End Sub
応用・注意点：現場で陥りやすい罠
1. エラー処理の重要性：SpecialCellsメソッドは、対象となるセルが一つも見つからないと「1004エラー」を返してプログラムが停止します。上記のコードのように、On Error Resume Nextで一時的にエラーを無視するか、事前に空白セルの個数をカウントするなどの工夫が必要です。
2. 範囲の指定：今回のコードはSelection（選択範囲）を対象にしていますが、実務では「B列の最終行まで」といった指定が好まれます。その場合は、Selectionの部分を、Cells(Rows.Count, “B”).End(xlUp).Rowを用いたRange指定に書き換えてみてください。
3. マクロ記録は「ヒント」：マクロ記録はあくまで「VBAの書き方を知るための辞書」です。記録されたコードの冗長な部分（不要なSelectやActivateなど）を削ぎ落とすことが、脱初心者への第一歩です。
まずはこのコードを標準モジュールに貼り付けて、空のシートで試してみてください。一瞬で空白セルが埋まる爽快感をぜひ体感してくださいね。
