求助如何用VBA实现3个单独的表构建成一个总表-笛卡尔积表

星梦月缘

老师好，请问如何根据左边的三个小表，使用VBA自动构建出右边的一个组合一维表，也叫笛卡尔积表。附件和图片均已上传，希望老师有空了帮忙给解答下，谢谢！

shiruiqiang

这样吗？

LIUZHU

这不就是三个循环嵌套？

taller

taller

taller

PowerQuery轻松实现，无需任何代码

fzxba

回复表.rar (28.67 KB, 下载次数: 6)

2023-1-21 10:48 上传

点击文件名下载附件

gwjkkkkk

Sub test1()
    Dim ar(2), br, i&, j&, k&, r&, iCount&
   
    iCount = 1
    For i = 0 To UBound(ar)
       With Cells(1, i * 2 + 1).CurrentRegion
           ar(i) = Intersect(.Offset(), .Offset(1))
           iCount = iCount * UBound(ar(i))
       End With
    Next i
   
    ReDim br(1 To iCount, 1 To 3)
    For i = 1 To UBound(ar(0))
       For j = 1 To UBound(ar(2))
          For k = 1 To UBound(ar(1))
             r = r + 1
             br(r, 1) = ar(0)(i, 1)
             br(r, 2) = ar(1)(k, 1)
             br(r, 3) = ar(2)(j, 1)
          Next k
       Next j
    Next i
   
    [I1].CurrentRegion.Offset(1).ClearContents
    [I2].Resize(UBound(br), 3) = br
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。