автоматически объединяем соседние ячейки с одинаковыми значениями в Excel

макрос для выполнения автоматического объединения ячеек:
Sub MergeCells()
Dim j As Long
Dim i As Long
Application.DisplayAlerts = False
For j = 1 To Selection.Columns.Count
For i = Selection.Rows.Count To 2 Step -1
If Selection.Cells(i - 1, j) = Selection.Cells(i, j) Then
Range(Selection.Cells(i - 1, j), Selection.Cells(i, j)).Merge
End If
Next
Next
Selection.VerticalAlignment = xlVAlignCenter
Application.DisplayAlerts = True
End Sub

[@andyya133]

Большущее спасибо!!! Экономия времени колоссальная!

[@user-ml1dc8nq9q]

Спасибо огромное! Всех Вам благ!

[@user-pl3mm1om6m]

То что надо, большое спасибо за видео, вы мне очень помогли.

[@user-td5xw9ym4v]

А можно ли еще и суммировать цифровые ячейки?

[@user-um1uy7hl8l]

Спасибо огромное!

[@kremlebot116]

Благодарю

[@irishpetrish3634]

спасибо! а можно макрос на разделение объедененных ячеек с автозаполнением данных верхней ячейки

[@TheCuwe]

Искал этот материал часов 5!

[@upling]

а как написать правило, чтобы пустые ячейки не объединялись?

[@sergeykolovrat8658]

а как сделать, чтобы объединение было не по столбцу, а по строке?

[@anatolyparovozov2953]

К примеру: В первом столбце Продавец (к примеру 100 разных). Во втором (город продавца). В третьем наименование товара. В четвертом наименование покупателя(условно тоже 100). В пятом город покупателя. В шестом количество товара.
Суть такая если к примеру я ставлю фильтр и выбираю одного Продавца например Василий из Москвы, в моей таблице Василий продал Пете из Саратова 10 штук обуви , Сергею из Самары 10 штук обуви. По логике должно быть 2 строки. Но у меня их 20. Помоги пожалуйста!

[@VohaStar]

+++

[@wwqq001]

чет не получилось