VBA-笛卡尔积形式的粘贴复制

Yudexxxxxxx

求助。

目的：将sheet1与2如笛卡尔积的形式，合并为最终sheet3的形式。

需求：
根据sheet2中的单品行数，将sheet1中的内容复制粘贴与sheet2单品行数相等的次数，最终将sheet1与2以笛卡尔积形式合并得出sheet3的形式。

如：sheet2中一共有3个品，sheet1中的range(A2:C10)的部分就复制粘贴3次，并D与E列跟着sheet2的货品。


十分感谢！
sheet1:

sheet2:

sheet3:

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a2:c" & r)
   
7.   End With
   
8.   With Worksheets("sheet2")
   
9.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.     brr = .Range("a2:b" & r)
    
11.   End With
    
12.   ReDim crr(1 To UBound(arr) * UBound(brr), 1 To 5)
    
13.   m = 0
    
14.   For i = 1 To UBound(brr)
    
15.     For j = 1 To UBound(arr)
    
16.       m = m + 1
    
17.       crr(m, 1) = arr(j, 1)
    
18.       crr(m, 2) = arr(j, 2)
    
19.       crr(m, 3) = arr(j, 3)
    
20.       crr(m, 4) = brr(i, 1)
    
21.       crr(m, 5) = brr(i, 2)
    
22.     Next
    
23.   Next
    
24.   With Worksheets("sheet3")
    
25.     .Range("f2").Resize(UBound(crr), UBound(crr, 2)) = crr
    
26.   End With
    
27. End Sub
    

复制代码

chxw68

两重循环解决问题。

鑫尼达

字段名最好别用符号，这样用不了SQL了