用Excel实现一组数据的组合

您的列只显示到W，不知后面有没有，W对应的列数是23，如果后面还有，自己改动，还有，我的程序是按由小到大的原始顺序来的，所以结果和您的顺序不一样。
方法是，工具，宏，宏，新建宏，删除原来代码，复制以下代码。
运行时点工具，宏，宏，选中cal，点执行，如果被阻止的话，从宏子菜单里点安全性，选择最低，保存，关闭，重新打开就行了。

Sub cal()
Sheets("sheet1").Select '选中表1
Row = 0
For col = 1 To 23 '23是W列的数字形式，如果后面还有，作相应改动。
i = 1
Row = Row + 1
Do While Sheets("sheet1").Cells(i + 2, col) <> "" '循环直到当前列的倒数第3个数字
j = i + 1
Do While Sheets("sheet1").Cells(j + 1, col) <> "" '循环直到当前列的倒数第2个数字
k = j + 1
Do While Sheets("sheet1").Cells(k, col) <> "" '循环直到当前列的最后1个数字
Sheets("sheet2").Cells(Row, 3) = Sheets("sheet1").Cells(i, col)
Sheets("sheet2").Cells(Row, 2) = Sheets("sheet1").Cells(j, col)
Sheets("sheet2").Cells(Row, 1) = Sheets("sheet1").Cells(k, col)
k = k + 1
Row = Row + 1
Loop
j = j + 1
Loop
i = i + 1
Loop
Next
End Sub

这个需要用到编程了