Название темы:
Объединение ячеек с одинаковым содержимым, при этом учитывать, объединены ли соседние ячейки, а так же суммирование объединенных ячеек с числовыми значениями.
Доброго времени суток.
Есть исходная таблица.

Исходная.xlsx (8.98 КБ)
Есть макрос, который объединяет ячейки с одинаковыми значениями:
Но при работе макроса, получается так, что он не учитывает соседние ячейки, а обрабатывает только один столбец, и получается не корректное объединение ячеек:

Работа макроса не корректна.xlsx (9.22 КБ)
В идеале, хотелось бы получить такой результат, чтобы при объединении ячеек учитывалось состояние объединённых ячеек слева, а так же, если ячейки содержат цифры, то в объединённой ячейке выводилась бы сумма.

В идеале.xlsx (9.15 КБ)
Заранее всем спасибо)
Объединение ячеек с одинаковым содержимым, при этом учитывать, объединены ли соседние ячейки, а так же суммирование объединенных ячеек с числовыми значениями.
Доброго времени суток.
Есть исходная таблица.
Исходная.xlsx (8.98 КБ)
Есть макрос, который объединяет ячейки с одинаковыми значениями:
Код |
---|
Sub JoinDoubles() Dim i As Long Application.DisplayAlerts = False For i = Selection.Rows.Count To 2 Step -1 If Selection.Cells(i, 1) = Selection.Cells(i - 1, 1) Then Range(Selection.Cells(i - 1, 1), Selection.Cells(i, 1)).Merge End If Next Selection.VerticalAlignment = xlVAlignCenter Application.DisplayAlerts = True End Sub |
Но при работе макроса, получается так, что он не учитывает соседние ячейки, а обрабатывает только один столбец, и получается не корректное объединение ячеек:
Работа макроса не корректна.xlsx (9.22 КБ)
В идеале, хотелось бы получить такой результат, чтобы при объединении ячеек учитывалось состояние объединённых ячеек слева, а так же, если ячейки содержат цифры, то в объединённой ячейке выводилась бы сумма.
В идеале.xlsx (9.15 КБ)
Заранее всем спасибо)