Создать лист, где каждая улица будет повторяться только один раз

[Blackwind]

есть таблица, в B-столбце - названия улиц (много повторяющихся, не вперемешку), в C-столбце - номера домов. нужен макрос, который создаст лист, где в каждая улица будет повторяться только один раз, а в С-ячейке номера домов будут записаны через запятую.

[SAS888]

Как уже говорил уважаемый EducatedFoool, нет ни малейшего желания воссоздавать Ваш файл. Будет пример - будет и незамедлительный ответ. Тем более, что названия улиц могут быть написаны по разному.

[Blackwind]

вот - пример оригинального файла, где каждому дому соответствует улица и индекс, а также пример результирующего файла, где дома сгруппированы по улицам и индексам

[EducatedFool]

Макрос получился сложный, поэтому даже не спрашивайте, как он работает

Sub Выборка()
    On Error Resume Next
    Dim sh As Worksheet: ActiveSheet.Copy , ActiveSheet: Set sh = ActiveSheet
    Dim cell As Range, ra As Range, FullRa As Range, vr As Range
    Application.ScreenUpdating = False
    Set ra = Range([b8], Range("b" & Rows.Count).End(xlUp))
    Set FullRa = Range([b7], Range("b" & Rows.Count).End(xlUp)).Resize(, 4)
    FullRa.AutoFilter

    For Each cell In ra.Cells
        If Len(Trim(cell.Next)) Then
            FullRa.AutoFilter 2, cell(1, 2): FullRa.AutoFilter 4, cell(1, 4)
            Set vr = ra.SpecialCells(xlCellTypeVisible)
            If vr.Cells.Count > 1 Then
                res = ""
                For Each cell2 In vr.Offset(, 2).Cells: res = res & "; " & cell2: Next cell2
                res = Trim(Mid(res, 3)): arr = vr.Cells(1).Resize(, 4).Value
                vr.Offset(, 1).ClearContents: vr.Offset(, 2).ClearContents: vr.Offset(, 3).ClearContents
                vr.Cells(1).Resize(, 4).Value = arr: vr.Cells(1).Offset(, 2) = res
            End If
        End If
    Next cell
    FullRa.AutoFilter
    ra.Offset(, 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Set ra = Range([b8], Range("b" & Rows.Count).End(xlUp))
    ra.Cells(1).AutoFill Destination:=ra, Type:=xlFillSeries
    ra.Offset(, 2).WrapText = True: Application.ScreenUpdating = True
End Sub

Просто нажмите зелёную кнопочку в файле-примере:

[Blackwind]

Огромное спасибо, все отлично работает. Только несколько маленьких проблем:
1) добавилась еще одна колонка - район города (примеры файлов прилагаются);
2) столкнулся с вариантом, когда слишком много домов находятся на одной улице и имеют одинаковый индекс - значение получается слишком длинным и не помещается в одну ячейку. Даже не знаю, что делать в таком случае - править руками?
3) основная таблица (для которой и нужен макрос) больше 2600 строк - это никак не повлияет на макрос?

Еще раз - огромное спасибо за помощь.

[EducatedFool]

1) добавилась еще одна колонка - район города (примеры файлов прилагаются)

И что из того? На работоспособности макроса ведь это не сказывается, и выборка формируется в точности такая, как в Вашем примере...

Даже не знаю, что делать в таком случае - править руками?

Если Вы не знаете - мне-то откуда знать?
Придумаете, что делать - попробую реализовать в виде кода.

основная таблица (для которой и нужен макрос) больше 2600 строк - это никак не повлияет на макрос?

Проверьте, и узнаете. Я, что ли, буду создавать огромную таблицу для проверки макроса?
2600 строк - это совсем немного. Макрос справится.

[Blackwind]

Посылаю большую таблицу, на 10 строке создаваемой макросом таблицы начинается неразбериха.

[EducatedFool]

на 10 строке создаваемой макросом таблицы начинается неразбериха.

Лично я никакой "неразберихи" не наблюдаю...



Неужели сложно было выложить пример с результатами работы макроса, выделить цветом "неразбериху", и подробно описать, в чём она заключается?

[Blackwind]

Я понял, в чем дело. Все дело в автофильтрах и "примерности" моего проверочного файла. Рабочий файл еще не готов и я индексы и районы поставил "от фонаря". Поэтому автофильтр группирует дома, между которыми могут находиться сотни строк. А это нежелательно, потому как дома (пусть даже имеющие одинаковые названия улиц и индексы), но расположенные не подряд нельзя объединять в одну ячейку. Сорри, но такая вот специфика.

Прилагаю куски таблиц, такую как генерирует макрос и такую как она должна быть.

Еще раз спасибо за помощь.

[EducatedFool]

потому как дома (пусть даже имеющие одинаковые названия улиц и индексы), но расположенные не подряд нельзя объединять в одну ячейку. Сорри, но такая вот специфика.

Сразу надо было говорить, ибо в этом случае использование в макросе автофильтра затруднительно (или вообще невозможно), а переписывать макрос "с нуля" (в связи с изменившимися условиями) у меня нет ни малейшего желания.

Возможно, другие форумчане предложат Вам более подходящий вариант решения.
Удачи!