两数组怎样结合一齐

liulang0808

这个地方楼主看下

jktops

liulang0808 发表于 2024-4-22 18:54
这个地方楼主看下

非常感谢

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar(1 To 2), br, i&, j&, r&, k&, m&, n&
   
    m = 1
    For i = 1 To 2
        ar(i) = Cells(1, (i - 1) * 4 + 1).CurrentRegion.Value
        m = m * UBound(ar(i)): n = n + UBound(ar(i), 2)
    Next i
    ReDim br(1 To m, 1 To n)
    For i = 1 To UBound(ar(1))
        For j = 1 To UBound(ar(2))
            r = r + 1
            n = 0
            For k = 1 To UBound(ar(1), 1)
                n = n + 1
                br(r, n) = ar(1)(i, k)
            Next k
            For k = 1 To UBound(ar(2), 1)
                n = n + 1
                br(r, n) = ar(2)(j, k)
            Next k
        Next j
    Next i
   
    [J1].Resize(UBound(br), UBound(br, 2)) = br
    Beep
End Sub

gwjkkkkk

参与一下。。。

一招秒杀

SQL  代码简单到 几乎没有

jktops

一招秒杀 发表于 2024-4-22 19:53
SQL  代码简单到 几乎没有

谢谢。你这方法当行列数不确定时岂不是太麻烦!

一招秒杀

jktops 发表于 2024-4-22 20:05
谢谢。你这方法当行列数不确定时岂不是太麻烦!

可以通过ADO从工作表中取数，行列数不限，不必在代码中输入数据。

cnmlgb9998

用PQ 解决，就三四行代码的事！！！！！！！！ 不香么？？？？大家？


笛卡尔积运算 而已！！！！！