Получение данных из двух столбцов в третий - VBA

Формулировка задачи:

Добрый день! Передо мной стоит следующая задача: Есть два столбца: 1 список городов. 2 список стран. Мне нужно получить 3 столбец, результатом которого будет список ячеек, каждая из которых будет выглядеть так "авиабилеты из <названия города> в <название страны>". Соответственно, нужно получить такой результат, который бы отражал все вариации пересечений город - страна. Количество городов - 5757, стран - 244. То есть каждому из городов будет посвящено 244 направления Потом тоже самое нужно проделать и для результатов "авиабилеты из <название страны> в <название города>. Кто-нибудь подскажет, как ее можно решить? Спасибо заранее

Решение задачи: «Получение данных из двух столбцов в третий»

textual
                            Листинг программы 
                        

                            Sub IHateSEO()
Dim cty(), cntry(), x, y
cty = Application.Transpose(Range("A1", Cells(Rows.Count, "A").End(xlUp)))
cntry = Application.Transpose(Range("B1", Cells(Rows.Count, "B").End(xlUp)))
Open "c:\temp\city2country.txt" For Output As #1  'вставьте нужный путь
For Each x In cty
  For Each y In cntry
    Print #1, "авиабилеты из " & x & " в " & y
  Next
Next
Close #1
Open "c:\temp\country2city.txt" For Output As #1  'вставьте нужный путь
For Each x In cntry
  For Each y In cty
    Print #1, "авиабилеты из " & x & " в " & y
  Next
Next
Close #1
End Sub
                        