Comment créer plusieurs lignes combinant des jeux de données

J'ai trois tables et j'ai besoin d'une sortie, qui contient des données à partir de deux tables, j'aimerais créer la même macro.

Tableau A

A B C D 

Tableau B

 Apple Orange Pears 

Tableau C

 Americas Asia Europe 

La sortie dont j'ai besoin est

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

Donc, je suppose que pour chaque lettre du tableau A, il y aurait 12 lignes supplémentaires créées. Ce qui précède est l'échantillon de données et j'ai environ 5000 lignes dans le tableau A.

Cela le fera, modifiez le cas échéant

 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