excel的组合肿么用

新建一个空白表格按下ALT+F11,插入-模块,复制下面代码到代码框中.按下F5运行.这样A1:A720就是6个数字的组合.

Sub order()Range(a1).SelectFor a = 2 To 7For b = 2 To 7For c = 2 To 7For d = 2 To 7For e = 2 To 7If a b And a c And a d And a e And b c And b d And b e And c d And c e And d e ThenActiveCell.Value = a & b & c & d & eActiveCell.Offset(1, 0).SelectEnd IfNextNextNextNextNextEnd Sub