Как сделать что бы макрос переходил к следующему циклу

[sersh1]

Добрый день!
помогите, пожалуйста:
в колонке А и В может быть до 7 городов и ФИО, необходимо что бы макрос брал по каждому городу все фио, сначала по первому городу выводил все ФИО, затем по второму городу и т.д. Сейчас макрос проверяет только один город не переходит ко второму.
В примере должно быть понятнее. спасибо.

[Hugo121]

Этот код пугает...
А это что?:
If Cells(3, 1) = " " Then
Exit Sub
End If
Т.е. если вместо Москвы в примере забить пробел, то ничего анализировать не нужно, а если просто пусто - то работаем?

Вообще я бы сделал так - города в словарь, фамилии в массив в Item словаря.
Если памяти не жалко - массивы сразу задаём по максимуму, если жалко, но не жалко времени - переопределяем по Redim Preserve.
А вот куда и как выгружать - это не понял, из примера не ясно.

[IgorGO]

1. архив битый, не открывается (или только у меня?)
2. посортируйте данные, запишите свои действия рекордером - будет вам готовый макрос без циклов.

[Hugo121]

Я открыл - скопировал из архива коммандером.
А винраром извлечь не получилось - конфликт версий?
Сортировка не поможет - там данные вида

Москва Иванов
Сочи Петров
____ Сидоров

[sersh1]

я пока очень плохо разбираюсь в макросах поэтому сделал так
Нужно что бы макрос брал первую ячейку с городом и по этому городу выводил все фио, затем брал вторую ячейку с городом и выводил все фио,
Это значит что ясли следующая ячейка с фио пустая, то как раз нужно переходить к другому городу.

If Cells(3, 1) = " " Then
Exit Sub
End If

подскажите как можно это сделать?

[sersh1]

города и фио расположены в колонке А и В и их может быть до 7 шт. каждого

[Hugo121]

С расположением фамилий и городов понятно.
Не понятно, как выводить нужно - где пример по Сочям? Или по Сочи?
А макрос нужно переписать!

[sersh1]

я понимаю что его нужно переписать, но как не знаю,
В итоге должна быть такая таблица, если введено в колонку А два города и в колонку В 3 ФИО, города разные а фио одни и те же.


Город фио
Москва Иванов
Петров
Сидоров
Сочи Иванов
Петров
Сидоров

[Казанский]

> В примере должно быть понятнее.

Что тут можно понять - одна фамилия на город. А Сидоров относится к Сочи, или он отдельно?

Скорее всего, нужно заполнение пустых ячеек ( http://www.planetaexcel.ru/tip.php?aid=86 ) и сортировка.

[Hugo121]

Ничего не понял...

А пока такой код подобрал (чуть переделал) - создаёт новые книги, куда на первый лист (под именем города) выгружает фамилии:

Sub tt()
Dim a, oDict As Object, i&, temp$, kk

a = [a3].CurrentRegion.Value
Set oDict = CreateObject("Scripting.Dictionary")
oDict.CompareMode = vbTextCompare

For i = 1 To UBound(a)
If Len(a(i, 1)) Then temp = a(i, 1)
        If Not oDict.Exists(temp) Then
            ReDim b(1 To UBound(a) + 1, 1 To 1)
            b(UBound(a) + 1, 1) = 1
            b(1, 1) = a(i, 2)
            oDict.Add temp, b
        Else
        b = oDict.Item(temp)
            b(UBound(a) + 1, 1) = b(UBound(a) + 1, 1) + 1
            b(b(UBound(a) + 1, 1), 1) = a(i, 2)
            oDict.Item(temp) = b
        End If
Next

    For Each kk In oDict.keys
    
    With Workbooks.Add
        .Worksheets(1).Name = kk
        .Worksheets(1).Range("A1").Resize(oDict.Item(kk)(UBound(a) + 1, 1)) = oDict.Item(kk)
'        .SaveAs ThisWorkbook.Path & "\" & kk
'        .Close 0
    End With
    
    Next

End Sub