Задача такова - столбец А имеет значение артикула товара, столбец В с ссылками на изображения товара, нужно чтобы в столбце С отобразились все ссылки одного артикула в одну строчку через символ "|"
файл пример прикрепил
Добрый день!
Задача такова - столбец А имеет значение артикула товара, столбец В с ссылками на изображения товара, нужно чтобы в столбце С отобразились все ссылки одного артикула в одну строчку через символ "|"
китин, к сожалению на крупном документе (у меня 230000 строк) начинает виснуть и закрываться, в прошлой теме - http://www.excelworld.ru/forum/2-37626-1 была похожая задача, решение было весьма изящное и очень быстрое, даже с моими объемами данных!
китин, к сожалению на крупном документе (у меня 230000 строк) начинает виснуть и закрываться, в прошлой теме - http://www.excelworld.ru/forum/2-37626-1 была похожая задача, решение было весьма изящное и очень быстрое, даже с моими объемами данных!ailist
Сообщение отредактировал ailist - Четверг, 15.03.2018, 16:13
Макрос не смотрит артикулы в столбце "A", а делает работу на основе пустых ячеек в столбце "B".
[vba]
Код
Sub Объединить()
Dim arr(), lr As Long, i As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row arr() = Range("B2:B" & lr).Value
For i = UBound(arr) To 2 Step -1 If arr(i, 1) <> "" And arr(i - 1, 1) <> "" Then arr(i - 1, 1) = arr(i - 1, 1) & "|" & arr(i, 1) arr(i, 1) = Empty End If Next i
Макрос не смотрит артикулы в столбце "A", а делает работу на основе пустых ячеек в столбце "B".
[vba]
Код
Sub Объединить()
Dim arr(), lr As Long, i As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row arr() = Range("B2:B" & lr).Value
For i = UBound(arr) To 2 Step -1 If arr(i, 1) <> "" And arr(i - 1, 1) <> "" Then arr(i - 1, 1) = arr(i - 1, 1) & "|" & arr(i, 1) arr(i, 1) = Empty End If Next i
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
