This post will guide you how to merge adjacent cells in columns with same value or data with VBA Macro in Excel. How do I merge cells when adjacent value is the same in one column in Excel.

Merge Adjacent Cells with Same Data

---

Assuming that you have a list of data in range A1:B4, and you only want to merge adjacent cells in column A. How to do it. You can use an Excel VBA Macro to quickly merge adjacent cells with same data or value in a specific column or range. Just do the following steps:

#1 open your excel workbook and then click on “Visual Basic” command under DEVELOPER Tab, or just press “ALT+F11” shortcut.

#2 then the “Visual Basic Editor” window will appear.

#3 click “Insert” ->”Module” to create a new module.

#4 paste the below VBA code  into the code window. Then clicking “Save” button.

 Sub MergeAdjacentCells()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set myRange = Application.Selection
    Set myRange = Application.InputBox("Select one Range that you want to merge cells with same data in one column:", "MergeAdjacentCells", myRange.Address, Type:=8)

    MergeAgain:
    For Each myCell In myRange
       If myCell.Value = myCell.Offset(1, 0).Value And IsEmpty(myCell) = False Then
           Range(myCell, myCell.Offset(1, 0)).Merge
           GoTo MergeAgain
       End If
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

#5 back to the current worksheet, then run the above excel macro. Click Run button.

#6 Select one Range that you want to merge cells with same data in one column. Click Ok button.

#7 let’s see the result: