UC知道求高人制作excel宏
来源：百度知道 编辑：UC知道 时间：2024/06/23 18:06:13
例如：表1中有数据3S00
10
20
30
表二中有数据
30
34
31
32
需要自动生成表三格式为
10 30
10 34
10 31
10 32
20 30
20 34
20 31
20 32
30 30
30 34
30 31
30 32
10
20
30
表二中有数据
30
34
31
32
需要自动生成表三格式为
10 30
10 34
10 31
10 32
20 30
20 34
20 31
20 32
30 30
30 34
30 31
30 32
代码如下：
Sub test()
Dim m As Integer, n As Integer
Sheets(3).Activate
m = Sheets(1).Range("a65536").End(xlUp).Row
n = Sheets(2).Range("a65536").End(xlUp).Row
For i = 1 To m
For j = 1 To n
Cells((i - 1) * n + j, 1) = Sheets(1).Cells(i, 1).Value
Cells((i - 1) * n + j, 2) = Sheets(2).Cells(j, 1).Value
Next
Next
End Sub