Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Павел Лебедев
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Объединить ячейки с одинаковым содержимым (учитывать, объединены ли соседние ячейки) с суммированием
 
#
25.02.2021 12:49:56
Цитата
МатросНаЗебре написал:
Такой вариант будет быстрее работать. Разница будет заметна при большом количестве строк.
Помогите пожалуйста исправить макрос так, чтобы он ещё объединял ячейки в столбце D (ячейки пустые), ориентируясь на ячейки из столбца С. Если C1 и С2 объединены, то и D1 и D2 тоже объединит.
Сейчас так:


Нужно так:


Заранее спасибо за помощь!
Изменено: Павел Лебедев - 25.02.2021 12:50:59
 
Перейти    
Объединить ячейки с одинаковым содержимым (учитывать, объединены ли соседние ячейки) с суммированием
 
#
18.02.2021 17:55:30
МатросНаЗебре, спасибо Вам ОГРОМНОЕ!!!!
Всё работает отлично.

От супруги отдельная благодарность!!!
 
Перейти    
Объединить ячейки с одинаковым содержимым (учитывать, объединены ли соседние ячейки) с суммированием
 
#
18.02.2021 16:42:46
Было бы замечательно.
 
Перейти    
Объединить ячейки с одинаковым содержимым (учитывать, объединены ли соседние ячейки) с суммированием
 
#
18.02.2021 11:36:00
Название темы:
Объединение ячеек с одинаковым содержимым, при этом учитывать, объединены ли соседние ячейки, а так же суммирование объединенных ячеек с числовыми значениями.

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

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

Заранее всем спасибо)
 
Перейти    
Как просто отсортировать по первым цифрам содержащимся в выражении?
 
#
16.02.2021 21:20:36
Цитата
vikttur написал:
=--ЛЕВБ(B2;ПОИСК("-";ПОДСТАВИТЬ(B2;"/";"-")&"-")-1)
Подскажите пожалуйста, как мне с помощью макроса вставить это выражение в ячейку I2?
Делаю так, но ругается эксель.
Код
Sub Формула()
'
' Формула Макрос
'

'
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=--ЛЕВБ(B2;ПОИСК("-";ПОДСТАВИТЬ(B2;"/";"-")&"-")-1)"
    Range("I3").Select
End Sub


В идеале, вставлять это выражение в ячейку с I2 до I?, где ? - это строка пока не будет пустая ячейка H. И в выражении соответственно менять B2 на В3, В4, В5 и т.д.
Изменено: Павел Лебедев - 16.02.2021 21:31:47
 
Перейти    
Как просто отсортировать по первым цифрам содержащимся в выражении?
 
#
16.02.2021 12:00:05
Я правильно понимаю, что для сортировки, выделять данные  в отдельные столбцы всё равно нужно, нельзя это в условия сортировки вставить?

Нельзя ли условия формулы в макрос добавить или ещё как нибудь, чтобы сортировка работала по "клику", без создания новых столбцов с данными и сортировки по ним?
 
Перейти    
Как просто отсортировать по первым цифрам содержащимся в выражении?
 
#
16.02.2021 11:41:46
Спасибо, работает с цифрами, а вот если там буквы, то пишет #ЗНАЧ!
 
Перейти    
Как просто отсортировать по первым цифрам содержащимся в выражении?
 
#
16.02.2021 10:51:37
Доброго времени суток.
Подскажите пожалуйста, можно ли простым способом (без выделения данных в отдельные ячейки) отсортировать строки, содержащие следующие данные.

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
Наверх