Excelでデータを整理する際、同じ文字が連続しているセルをまとめて見やすくするために「セルの結合」が役立つ場合があります。本記事では、VBAを使って列内の同じ値を持つセルを自動的に結合する方法を解説します。
前提条件
このコードを利用するための前提条件は以下の通りです。
- 対象となる表:
- 対象表の行範囲と列範囲は事前に設定します（例: 19行目～25行目、列A～C）。
- 空白セルは結合の対象外です。
- 結合ルール:
- 列内で隣接する同じ値を持つセルを1つのセルに結合します。
- Excel環境:
- VBAが有効であり、マクロが実行できる状態。
同じ値を持つセルを結合するVBAコード
以下のコードを使用することで、指定した列範囲内で同じ値を持つセルを結合できます。
コード
Sub MergeSameValueCells()
Dim outputSheet As Worksheet
Dim rangeAddress As Variant
Dim currentRange As Range
Dim cell As Range
Dim startCell As Range
' 出力シートを設定
Set outputSheet = ThisWorkbook.Sheets("対象のシート名") ' シート名を適宜変更
' 結合対象の範囲を設定（例: A19:A25, B19:B25, C19:C25）
Dim rangesToMerge As Variant
rangesToMerge = Array("A19:A25", "B19:B25", "C19:C25", "G19:G25") ' 必要に応じて調整
' セル結合の警告メッセージを無効化
Application.DisplayAlerts = False
' 指定された範囲ごとに処理
For Each rangeAddress In rangesToMerge
Set currentRange = outputSheet.Range(rangeAddress)
Set startCell = Nothing ' 開始セルを初期化
For Each cell In currentRange
If cell.Value <> "" Then
If startCell Is Nothing Then
' 開始セルを設定
Set startCell = cell
ElseIf cell.Value <> startCell.Value Then
' 値が異なる場合、結合
If Not startCell Is Nothing Then
outputSheet.Range(startCell, cell.Offset(-1, 0)).Merge
End If
Set startCell = cell
End If
Else
' 空白セルの場合、結合をスキップ
If Not startCell Is Nothing Then
outputSheet.Range(startCell, cell.Offset(-1, 0)).Merge
End If
Set startCell = Nothing
End If
Next cell
' 最後のセル範囲を結合
If Not startCell Is Nothing Then
outputSheet.Range(startCell, currentRange.Cells(currentRange.Cells.Count)).Merge
End If
Next rangeAddress
' セル結合の警告メッセージを再有効化
Application.DisplayAlerts = True
End Sub
コードの解説
1. 対象シートの指定
Set outputSheet = ThisWorkbook.Sheets("対象のシート名")
処理対象となるシートを指定します。シート名は適宜変更してください。
2. 結合範囲の指定
rangesToMerge = Array("A19:A25", "B19:B25", "C19:C25", "G19:G25")
結合対象の列範囲を配列で指定します。必要に応じて範囲を追加・変更してください。
3. セル値の判定と結合
If cell.Value <> startCell.Value Then
outputSheet.Range(startCell, cell.Offset(-1, 0)).Merge
End If
- 隣接するセル値が異なる場合、範囲を結合します。
- 空白セルはスキップされ、結合の対象外となります。
4. 警告メッセージの無効化
Application.DisplayAlerts = False
セルを結合する際に表示される警告メッセージを無効化します。
まとめ
このVBAコードを使えば、表内で同じ値が連続しているセルを自動的に結合し、データを整然と表示できます。データが多い場合や結合作業が頻繁な場合に非常に便利です。ぜひ試してみてください。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
