我有三个表,我需要一个包含两个表的数据的输出,我想使用宏创建相同的输出。
表A
A
B
C
D
表 B
Apple
Orange
Pears
表C
Americas
Asia
Europe
我需要的输出是
A Apple Americas
A Apple Asia
A Apple Europe
A Orange Americas
A Orange Asia
A Orange Europe
因此,我猜测表 A 中的每个字母都会创建 12 行。以上是示例数据,表 A 中有大约 5000 行。
答案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