【エクセルマクロ】同じ値のセルを結合する:自動化で時短

ExcelVBA-同じセル値結合_アイキャッチ エクセルマクロで効率化する

エクセルマクロで、同じ値のセルを結合する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列に同じ値が並んでいる場合、セルを結合します。


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

【エクセルマクロ】ワークシート処理を自動化する:超便利38選
...

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」
毎日の業務を瞬時に終わらせるしくみを解説