发布网友 发布时间:2022-04-23 05:16
共2个回答
热心网友 时间:2023-07-21 16:22
Sub Ioi()
ar = [{1,2,3,4,5}]
br = [{6,7,8,9,10}]
cr = [{11,12,13,14,15}]
For x = 1 To UBound(ar)
For y = 1 To UBound(br)
For Z = 1 To UBound(cr)
xr = [d65536].End(3).Row + 1
Range("d" & xr) = ar(x)
Range("e" & xr) = br(y)
Range("f" & xr) = cr(Z)
Next
Next
Next
End Sub
热心网友 时间:2023-07-21 16:22
你准备把所有的组合都列出来还是怎么说?