はじめに：なぜ「セル結合」の自動化が必要なのか
Excelでレポートやリストを作成する際、同じ値が連続するセルを一つにまとめ、「見やすく整形したい」と感じたことはありませんか？例えば、部署名や日付、担当者名などが縦に並んでいる場合、手動でセルを選択して結合ボタンを押す作業は、データ量が増えれば増えるほど苦痛なものになります。
「100行程度のデータなら手作業で……」と考えているうちに、誤って別のセルまで結合してしまったり、データが消えてしまったりするミスも起こりがちです。今回は、VBAを使って「連続する同じデータを持つセルを、ボタン一つで自動的に結合する」プロフェッショナルな手法を解説します。このスキルを身につければ、数時間の単純作業を数秒で終わらせることができるようになります。
セル結合の仕組みとVBAの役割
VBAでセルを結合するには、`Range.Merge` メソッドを使用します。しかし、単に結合するだけでは不十分です。重要なのは「どこからどこまでを結合するか」という範囲の判定ロジックです。
以下のステップでロジックを組み立てるのが、最も効率的かつ安全です。
1. 対象となる列の最終行を取得する。
2. 下から上に向かってループ処理を行う（上からだと結合した瞬間に範囲がずれるため）。
3. 現在のセルと一つ上のセルの値を比較し、一致すれば結合する。
ステップ1：プログラミングの準備
まずは、標準モジュールにコードを記述する準備をしましょう。Excelを開き、「Alt + F11」でVBE（Visual Basic Editor）を起動し、「挿入」メニューから「標準モジュール」を選択します。
ステップ2：実装するコードの全貌
以下に、汎用性の高いコードを提示します。このコードは、現在選択している列に対して、連続する重複データを自動結合するものです。
Sub MergeContinuousCells()
Dim targetCol As Range
Dim i As Long
Dim lastRow As Long
‘ 画面更新を停止して高速化
Application.ScreenUpdating = False
‘ 警告メッセージ（結合時のデータ欠落警告など）を非表示に
Application.DisplayAlerts = False
‘ 選択中の列を取得
Set targetCol = Selection
‘ 最終行を取得
lastRow = Cells(Rows.Count, targetCol.Column).End(xlUp).Row
‘ 下から上にループ（結合の基本テクニック）
For i = lastRow To 2 Step -1
If Cells(i, targetCol.Column).Value = Cells(i – 1, targetCol.Column).Value Then
Range(Cells(i – 1, targetCol.Column), Cells(i, targetCol.Column)).Merge
End If
Next i
‘ 配置を中央揃えにする（任意）
With targetCol
.VerticalAlignment = xlCenter
End With
‘ 設定を元に戻す
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox “結合が完了しました！”, vbInformation
End Sub
コードの重要ポイントを深掘り解説
このコードには、ベテランエンジニアが必ず押さえておくべき「3つの鉄則」が盛り込まれています。
1. **下から上へループする理由**
なぜ `For i = lastRow To 2 Step -1` なのか。もし上から結合していくと、結合された瞬間にセル番号のインデックスが変化し、正しく次のセルを判定できなくなります。下から結合すれば、常に「まだ処理していない上のセル」に対して影響を与えずに済みます。
2. **Application.DisplayAlerts = False**
Excelでセルを結合する際、複数のセルにデータが入っていると「結合すると左上の値しか残りません」という警告が出ます。これが出るたびにマクロが停止しては意味がありません。この設定で警告を無視し、スムーズに処理を完結させます。
3. **Application.ScreenUpdating = False**
画面描画を停止することで、マクロの実行速度を劇的に向上させます。数千行あるデータの場合、これがあるのとないのとでは、実行時間に数秒の差が出ます。
さらなる応用：特定の列を自動指定する
上記のコードは「選択した列」を対象にしますが、実務では「A列からC列まで自動で結合したい」といった要望も多いはずです。その場合は、`For` ループの外側に、列を回すループを追加します。
Dim col As Integer
For col = 1 To 3 ‘ A列〜C列を対象
‘ ここに先ほどの判定ロジックを入れる
Next col
このように、列をループに組み込むことで、表全体を一括整形する強力なツールへと進化させることができます。
注意点：データ加工の心構え
セル結合は非常に便利ですが、一つだけ注意点があります。それは「結合したセルは、後で並び替えやフィルタリングが困難になる」ということです。
もし、結合したデータを後でピボットテーブルに使ったり、集計したりする予定がある場合は、結合する前に「元データのバックアップシート」を作成しておくことを強く推奨します。VBAを使う場合は、処理の冒頭で現在のシートをコピーする一文を入れておくのもプロの習慣です。
まとめ：VBAで「作業」を「資産」に変える
今回紹介したセル結合の自動化は、単なる時短テクニックではありません。VBAを使って定型作業を自動化することで、あなたは「手を動かす作業者」から「業務を改善するエンジニア」へとステップアップできます。
最初は難しく感じるかもしれませんが、まずは提示したコードをそのままコピー＆ペーストして、手元のデータで試してみてください。一度成功すれば、そこから「文字色を変えたい」「罫線を自動で引きたい」といった応用が次々と浮かんでくるはずです。
Excel VBAは、あなたのPCの中に眠る最強の武器です。ぜひこのツールを活用して、よりクリエイティブで価値のある仕事に時間を使ってください。何か不明点があれば、またいつでもご相談くださいね。応援しています！
