【エクセルマクロ】同じ値のセルを結合する：動画あり

エクセルマクロで、同じ値のセルを結合するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。

動画で動作確認ができます👇

同じ値のセルを結合

以下のExcelVBAを実行すると、連続で同じデータが並んでいる場合にセル結合します。

Sub 上下のセル値が同じ場合に一括でセル結合()

Dim i As Long
Dim StartRow As Long
Dim LastRow As Long

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    '結合の開始行
    StartRow = 2

    '2～最終行までループ
    For i = 2 To LastRow

        If Cells(StartRow, 1) = Cells(i, 1).Offset(1, 0) Then
            '同じ値だったらなにもしない
        Else
            '違う値になったら結合
            Application.DisplayAlerts = False
                Range(Cells(StartRow, 1), Cells(i, 1)).Merge
            Application.DisplayAlerts = True
            
            '結合の開始行を変更
            StartRow = i + 1
        End If
    
    Next i

End Sub

マクロ実行後

A列に同じ値が並んでいる場合、セルを結合します。

 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

エクセルマクロで、ワークシートの追加・削除を自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください！

kirinote.com

2023.09.03