|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.07.2016, 20:49 | #1 |
Пользователь
Регистрация: 09.11.2015
Сообщений: 36
|
Объединение строчек опираясь на другой столбец
Добрый вечер, товарищи. Ищу помощи в дополнении к макросу.
Файл с примером в приложении. Суть такова: В файле 2 колонки. в первом столбце идет порядковый номер объекта в объеденной ячейке, которая равна кол-ву ячеек второго столбца. Во втором столбце идет построчно информация, которая соответствует объекту в ячейке первого столбца. Необходимо объеденить ячейки второго столбца, которые принадлежат объекту первого столбца. То есть, где то их 3 строки, где то 10, а где то и одна, которую нужно пропустить. На данный момент выручает такой макрос Sub MergeToOneCell() * *Const sDELIM As String = ", " * * 'символ-разделитель * *Dim rCell As Range * *Dim sMergeStr As String * *If TypeName(Selection) <> "Range" Then Exit Sub * 'если выделены не ячейки - выходим * *With Selection * * * *For Each rCell In .Cells * * * * * *sMergeStr = sMergeStr & sDELIM & rCell.Text *'собираем текст из ячеек * * * *Next rCell * * * *Application.DisplayAlerts = False * 'отключаем стандартное предупреждение о потере текста * * * *.Merge Across:=False * * * * * * * *'объединяем ячейки * * * *Application.DisplayAlerts = True * * * *.Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM)) * *'добавляем к объед.ячейке суммарный текст * *End With End Sub Им я могу объединять ячейки в ручную без потери текста, но строк 3500. Можно ли в этот макрос вставить еще одно условие, для ориентира на первый столбец? Спасибо за внимание.пример.xlsx |
29.07.2016, 05:12 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Можно так:
Код:
Чем шире угол зрения, тем он тупее.
|
29.07.2016, 11:29 | #3 | |
Пользователь
Регистрация: 09.11.2015
Сообщений: 36
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заменить столбец одной таблицы, на столбец другой | Karyuudo | SQL, базы данных | 1 | 30.09.2015 16:07 |
При выборе другой фамилии на форме данные в другой столбец | and150382 | Microsoft Office Access | 4 | 19.08.2013 21:07 |
перенести часть текста в другой столбец | horpenst | Microsoft Office Excel | 4 | 13.07.2011 01:37 |
Копирование значения в другой столбец при определенном условии | stasbz | Microsoft Office Excel | 1 | 01.07.2009 23:55 |
Макрос на объединение 4 строчек в 1 | malrah | Microsoft Office Word | 16 | 16.06.2009 17:12 |