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