发布网友 发布时间:2022-04-23 02:22
共1个回答
热心网友 时间:2023-10-11 14:05
VBA中用循环可以很快速地实现你的需求,详细代码如下:
Sub 排列组合()
Dim b, c, d, e, f, g As Integer
b = 2 '从B2开始生成
For c = 2 To [c65536].End(3).Row
For d = 2 To [d65536].End(3).Row
For e = 2 To [e65536].End(3).Row
For f = 2 To [f65536].End(3).Row
For g = 2 To [g65536].End(3).Row
Range("b" & b) = Range("c" & c).Value & Range("d" & d) & Range("e" & e) & Range("f" & f) & Range("g" & g)
b = b + 1 '跳转到下一单元格
Next
Next
Next
Next
Next
End Sub
复制以上代码,打开文件,按alt+F11键,在上方菜单中选择插入模块,粘贴该代码,按F5运行即可。