A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data
You may try macro.
====================
Sub MergeDuplicateCells()
Dim lastRow As Long
Dim i As Long
Application.DisplayAlerts = False
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = lastRow To 2 Step -1
If Cells(i, "A").Value = Cells(i - 1, "A").Value Then
Range(Cells(i - 1, "A"), Cells(i, "A")).Merge
Range(Cells(i - 1, "B"), Cells(i, "B")).Merge
Range(Cells(i - 1, "C"), Cells(i, "C")).Merge
Range(Cells(i - 1, "D"), Cells(i, "D")).Merge
End If
Next i
Application.DisplayAlerts = True
End Sub
====================