Формирование списка уникальных значений для заданного уровня

[ILF_ollie]

Добрый день, уважаемые форумчане.
Очень прошу помочь со следующей задачей.

Необходимо копировать в таблицу список всех соответствующих городов на основании выбранного континента/страны/города.

Ниже приведено более детальное описание задачи:

В файле имеется лист 1. Ввод данных с ячейками, в которых вводятся значения город, страна, континент.
Задача, чтобы при нажатии на кнопку рядом с соответствующим полем, на листе 3. Отчет в первом столбце таблицы Города сформировался список всех уникальных городов для соответствующей уровня, на основе списка всех городов/стран/континентов, имеющегося на вкладке 2. Список уникальных значений.

При этом при повторном использовании макросов старые значения городов из таблицы удаляются.

Вкладка 4. Список всех данных используется для подставления значений в форму на листе 1. Ввод данных

Файл в приложении.

С уважением,

[nilem]

ILF_ollie, привет
попробуйте так

Sub GorStrana() 'Сформировать список всех городов для выбранной страны
Call ertert(2, Range("C5").Value)
End Sub

Sub GorKont() 'Сформировать список всех городов для выбранного континента
Call ertert(3, Range("C6").Value)
End Sub

Sub ertert(k As Long, srch As String)
Dim x, i&, rng As Range
With Sheets("2. Список уникальных значений")
    x = .Range("A1:C" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
End With
Set rng = Sheets("3. Отчет").ListObjects(1).DataBodyRange.Columns(1)
rng.ClearContents
With CreateObject("Scripting.Dictionary")
    .CompareMode = 1
    For i = 1 To UBound(x, 1)
        If x(i, k) = srch Then .Item(x(i, 1)) = Empty
    Next i
    If .Count > 0 Then rng.Resize(.Count).Value = Application.Transpose(.keys)
End With
End Sub

[ILF_ollie]

Сообщение от nilem

ILF_ollie, привет
попробуйте так

Отлично, спасибо большое!