автоматически объединяем соседние ячейки с одинаковыми значениями в Excel
HTML-код
- Опубликовано: 28 авг 2024
- макрос для выполнения автоматического объединения ячеек:
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
Большущее спасибо!!! Экономия времени колоссальная!
Спасибо огромное! Всех Вам благ!
То что надо, большое спасибо за видео, вы мне очень помогли.
А можно ли еще и суммировать цифровые ячейки?
Спасибо огромное!
Благодарю
спасибо! а можно макрос на разделение объедененных ячеек с автозаполнением данных верхней ячейки
Искал этот материал часов 5!
а как написать правило, чтобы пустые ячейки не объединялись?
а как сделать, чтобы объединение было не по столбцу, а по строке?
К примеру: В первом столбце Продавец (к примеру 100 разных). Во втором (город продавца). В третьем наименование товара. В четвертом наименование покупателя(условно тоже 100). В пятом город покупателя. В шестом количество товара.
Суть такая если к примеру я ставлю фильтр и выбираю одного Продавца например Василий из Москвы, в моей таблице Василий продал Пете из Саратова 10 штук обуви , Сергею из Самары 10 штук обуви. По логике должно быть 2 строки. Но у меня их 20. Помоги пожалуйста!
+++
чет не получилось