青岛飞香港多长时间:用excel中的VBA如何实现排列组合的操作

用1-12这12个数字，从中选取6个数字做无顺序的组合数据，即一共为C(12,6)=924组数据，一组数据显示一行，如，第一组数据为“1 2 3 4 5 6”，第二组数据在第二行中显示“1 2 3 4 5 7”，用excel该如何操作呢？请各位朋友帮帮忙，很急，谢谢！ 

要求每组数据的六个数字从“A1”排列到“F1”格,即一个数字一个格。麻烦大家了。

Sub Click()Dim a, b, c, d, e, f, ii = 1For a = 1 To 12For b = a + 1 To 12For c = b + 1 To 12For d = c + 1 To 12For e = d + 1 To 12For f = e + 1 To 12Cells(i, 1) = aCells(i, 2) = bCells(i, 3) = cCells(i, 4) = dCells(i, 5) = eCells(i, 6) = fi = i + 1Next fNext eNext dNext cNext bNext aEnd Sub 

在EXCEL里如何实现类似WORD里的通配符的查找功能？如果用VBA实现的话怎么做？ VBA用CELLS表示单元格,如何实现单元格的合并 如何使用vba调入其它EXCEL文件中的数据 请问EXCEL中的宏的制作必须会VBA编程 如何将一个Excel表格中的指定的表格中的内容复制到另外一个Excel表格中的指定表格中（最好使用VBA）？ 如何使用VBA启动Excel 如何实现Excel表格中的行列互换？ Java程序如何实现对字符串的排列组合问题? 如何使用excel vba获得当前电脑的信息？ 如何使用visio的vba调用excel文件？ 用VBA编程如何遍历EXCEL每一个工作表 如何用VBA编程实现查找EXCEL表里的中文字符的功能？ excel vba ontime的问题 excel中VBA的问题 Excel VBA Excel VBA vba excel excel vba 中如何得到一串文件名 Excel中如何封装VBA 代码 如何使用VB.net中的DataSet实现多个表的向excel填充？ 如何实现在EXCEL表格中的分类汇总？ Excel函数如何实现这样的功能?! 我想知道如何实现excel的查询？？ 如何实现EXCEL的数值改变