按ALT＋F11打开VBA编辑器,插入一个模块,把如下代码放入,把光标停在代码中间,按F5运行. Public Sub lwy() For a = 1 To 6 For b = 1 To 6 For c = 1 To 6 For d = 1 To 6 For e = 1 To 6 For f = 1 To 6 If a b And a c And a d And a e And a f _ And b c And b d And b e And b f _ And c d And c e And c f _ And d e And d f _ And e f Then n = n + 1 Cells(n,1) = a:Cells(n,2) = b:Cells(n,3) = c:_ Cells(n,4) = d:Cells(n,5) = e:Cells(n,6) = f End If Next Next Next Next Next Next End Su
