Выбрать дату в календареВыбрать дату в календаре

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

Доброго времени суток.
Есть исходная таблица.

Исходная.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 КБ)

Заранее всем спасибо)
Как просто отсортировать по первым цифрам содержащимся в выражении?
 
Доброго времени суток.
Подскажите пожалуйста, можно ли простым способом (без выделения данных в отдельные ячейки) отсортировать строки, содержащие следующие данные.

48
44
130/200-160/30
46
92-80
без_размера
88/105


Нужно так:
44
46
48
88/105
92-80
130/200-160/30
без_размера

Сортировка нужна по первым цифрам. Цифр может быть одна, две или три. После цифры могут следовать дополнительные символы, а может и не быть. Так же, в ячейке может быть текст, который можно в конце списка сделать или в начале, без разницы.
Пробовал через настраиваемую сортировку, настраиваемый список, не получается.
Изменено: Павел Лебедев - 16.02.2021 10:58:43
Страницы: 1
Наверх