Нашёл макрос, который позволяет объединить ячейки с одинаковыми значениями в выделенном диапазоне в одном или нескольких столбцах.
Код
Sub JoinDoubles()
Dim i As Long
Dim j 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
После работы такого макроса, к примеру множество одинаковых значений в ячейках столбца А объединяются, после чего можно снять объединение ячеек в ручную, остаётся одно значение, к примеру в ячейке А3. А затем нужна следующая автоматизация: выделенные значения в нескольких строках столбцах С-J вырезаются и вставляются в столбец А ниже ячейки А3 со сдвигом вниз других ячеек.
Название темы плохое: сюда можно кучу самых разных вопросов накидать. Предложите другое, из которого будет понятна проблема - модераторы поменяют. И код следует оформлять соответствующим тегом: ищите такую кнопку (см. скрин) и исправьте своё сообщение.
vitaboyarsh, ответное слово автора темы - обычное уважение к помогающим. Вы не отписываетесь на ответы в своих темах. Темы, созданные в разделе Работа, не закрыты. Как понимать такое поведение на форуме?
vitaboyarsh написал: А затем нужна следующая автоматизация: выделенные значения в нескольких строках столбцах С-J вырезаются и вставляются в столбец А ниже ячейки А3 со сдвигом вниз других ячеек.
Это - Претензия на Автоматизацию?! Цирк на Конной Тяге!!! ______________________________________________________ Все стремятся в EXCEL избавиться от Объединенных Ячеек! Однозначно: имеет смысл "придумать" нормальный алгоритм для Вашей Автоматизации!
Спасибо за замечания. Это не цирк, нужен макрос на выделенное - вырезать С-J - вставить в А-H со сдвигом вниз. Убрать объединение сразу по всем ячейкам можно и одной кнопкой без макроса. Название темы можно заменить на "Трансформация таблицы".
А еще при наличии небольшого файла-примера помощь приходит быстрее. Создайте новую тему с учетом замечаний. И не забудьте отписаться в темах. Обычное уважение к форуму и помогающим...