Мне, быть честным, ничего не дало ваше сообщение, так как я в Excel-е не разбираюсь. Могу сказать лишь, что "вручную" что-то делать не вариант - данных огромное кол-во в файле, где это надо сделать.
Если вручную не вариант - ждите может кто макрос напишет. Кстати, и огромное количество можно вручную за десяток секунд обработать на удаление дубликатов. Вот с формулами будет дольше... Если вообще ничего не разбираетесь и не стремитесь разобраться - может сменить работу?... Я кстати там выше добавил линк на тему с кодом.
Sub foo()
Dim rng As Range
Set rng = Application.InputBox("Enter some range", Type:=8).CurrentRegion
Dim cell As Range
Dim counter&, c&
For Each cell In rng.Columns(2).Cells
counter = counter + 1
c = 2
If Not cell = vbNullString Then
Do While cell = cell(c, 1)
cell(1, 0) = cell(1, 0) & "," & cell(c, 0)
rng.Rows(counter + c - 1).Clear
c = c + 1
Loop
End If
Next cell
rng.SpecialCells(xlCellTypeBlanks).Delete xlUp
End Sub
Делал, ради упражнения. Жаль, что нет даже попыток сделать что-то.
Если делать вручную и функцией - там выше есть ссылка на тему с кодом - это код функции пользователя, с помощью которой можно собрать эти "2,3,4,5". Как использовать - читать http://www.planetaexcel.ru/techniques/3/59/ (вторая половина темы). ВПР() может быть и не нужна - кажется там при удалении дубликатов можно расширить диапазон, но я точно не помню, у меня тут 2003 где нет этого функционала.
Т.е. в итоге так - копируете свою таблицу на другой лист, удаляете дубликаты по итемам (все лишние строки своей таблицы), затем собираете номера из оригинальной таблицы в эту урезанную с помощью функции пользователя. Код конечно заранее нужно поместить модуль этой книги или надстройки или в персональную книгу макросов. Пример не покажу, нет сейчас возможности.
Все_просто, спасибо. Всё работает. А касательно "попыток", в данном случае вы не правы, их было предостаточно для того, чтобы задать вопрос знающим людям.
Hugo, спасибо. Ради интереса, тоже попробую сделать, как вы написали. Только в силу своей excel-неграмотности, боюсь, что может не получиться.