Добрый день. Часть документа обрабатываю по формуле как на видео Множественный ВПР Подскажите, по-та, как исключить повторы объединяющихся значений? Вопрос в комментариях под видео задан, но ответа пока нет. А как быть, если один продавец несколько раз продал одинаковые автомобили? Чтобы не было "Мерседес: Петя, Таня, Петя, Петя,..." Прошу помочь.
если как на видео - откуда у Вас взялись повторы? Вы галочку "только уникальные записи" точно ставите? надо бы расширить понятие того, что хотите в итоге и какие манипуляции можно делать с данными. Вариант 1: добавить третий столбец, в котором объединить марку машины и продавца. И уже по этому столбцу отобрать уникальные записи. А потом применить ОБЪЕДИНИТЬ. Вариант 2: макросы и иже с ними: Как сцепить несколько значений в одну ячейку по критерию? СцепитьЕсли
Согласен полностью про версию. Дома буду обновляться, но на работе к сожалению не обновят. Извините, что не стразу. Файл с примером приложил в первом сообщении.
подсказал я вам формулу, да Excel оказался не той системы... показал решение для той системы, что есть - и опять не то... чем VBA лучше PQ для этой задачи?
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Sub dsd()
Dim arr, arr2, lr As Long, col As New Collection, n As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row: arr = Range("A2:B" & lr)
For i = LBound(arr) To UBound(arr)
On Error Resume Next: col.Add arr(i, 1), CStr(arr(i, 1))
Next i
ReDim arr2(1 To col.Count, 1 To 2)
For i = 1 To col.Count
arr2(i, 1) = col(i)
For n = LBound(arr) To UBound(arr)
If arr(n, 1) = col(i) Then
If InStr(arr2(i, 2), arr(n, 2)) = 0 Then
If arr2(i, 2) = Empty Then
arr2(i, 2) = arr(n, 2)
Else
arr2(i, 2) = arr2(i, 2) & "," & arr(n, 2)
End If
End If
End If
Next n
Next i
Range("D2").Resize(UBound(arr2), 2) = arr2
End Sub
ТЕМА: Получить список уникальных марок машин с отражением имен продавцов через запятую и без повторений
buchlotnik, все именно то. Видимо я недостаточно условия описал.
Этот вопрос всего лишь часть общей объемной задачи для получения из большого документа данных в нужном формате для которого я готовлю макрос. А именно. Из документа около 5000 позиций, на отдельный лист нужно собрать уникальные коды. К этим уникальным кодам нужно сложить в отдельных столбцах повторы числовых значений (около 5-6 столбцов со значениями) и собрать текстовое описание и другую текстовую информацию через запятую. Вытащить еще некоторые данные и т.д. Уже все сделал. Макрос выполняет все действия по нажатию на одну кнопку, но остался один момент, который мне не нравится. Это и есть момент с которым я прошу помочь. Текстовые данные собираются через запятую вместе с повторами, а нужны только уникальные.
Поэтому и интересуюсь какие еще есть варианты которые мне могут быть удобны и я смогу переделать под себя. К сожалению, сам документ выложить не могу, т.к. информация конфиденциальная. В первом сообщении пример отражает вопрос по которому нужна справка.
Очень нравится этот форум и здесь всегда нахожу большую часть ответов и получаю своевременную помощь.
buchlotnik, я просто не все описал. PQ для моей задачи и тех кто будет пользоваться не совсем подходит. В и тоге будет exe приложение которое постепенно будет дополняться функционалом. У меня получилось и с помощью PQ и с помощью Уник(). Но на некоторых рабочих местах нет 365 - го. Если бы это была разовая задача тогда, да.