Как создать несколько строк, объединяющих наборы данных

Question

У меня есть три таблицы, и мне нужен выход, который имеет данные из двух таблиц, я хотел бы создать то же самое с помощью макроса.

Таблица А

A
B
C
D

Таблица Б

Apple
Orange
Pears

Таблица С

Americas
Asia
Europe

Выход мне нужен

A Apple Americas
A Apple Asia
A Apple Europe
A Orange Americas
A Orange Asia
A Orange Europe

Так что я думаю, что для каждой буквы из таблицы A будет создано 12 дополнительных строк. Выше приведены примеры данных, и у меня есть около 5000 строк в таблице А.

Answer 1

Это будет сделано, просто измените по мере необходимости

Sub Umesh()
Application.ScreenUpdating = False
Dim i As Integer
Dim c As Range
Dim d As Range
Dim e As Range

i = 1

For Each c In Worksheets("Sheet1").Range("A:A")
If c <> "" Then

    For Each d In Worksheets("Sheet2").Range("A:A")
    If d <> "" Then

        For Each e In Worksheets("sheet3").Range("A:A")
            If e <> "" Then

            Worksheets("sheet4").Cells(i, 1) = c.Value
            Worksheets("sheet4").Cells(i, 2) = d.Value
            Worksheets("Sheet4").Cells(i, 3) = e.Value
            i = i + 1

            End If
        Next e

    End If
    Next d

End If
Next c

Application.ScreenUpdating = True
End Sub