用Excel實現(xiàn)一組數(shù)據(jù)的組合

您的列只顯示到W，不知后面有沒有，W對應(yīng)的列數(shù)是23，如果后面還有，自己改動，還有，我的程序是按由小到大的原始順序來的，所以結(jié)果和您的順序不一樣。
方法是，工具，宏，宏，新建宏，刪除原來代碼，復(fù)制以下代碼。
運行時點工具，宏，宏，選中cal，點執(zhí)行，如果被阻止的話，從宏子菜單里點安全性，選擇最低，保存，關(guān)閉，重新打開就行了。

Sub cal()
Sheets("sheet1").Select '選中表1
Row = 0
For col = 1 To 23 '23是W列的數(shù)字形式，如果后面還有，作相應(yīng)改動。
i = 1
Row = Row + 1
Do While Sheets("sheet1").Cells(i + 2, col) <> "" '循環(huán)直到當(dāng)前列的倒數(shù)第3個數(shù)字
j = i + 1
Do While Sheets("sheet1").Cells(j + 1, col) <> "" '循環(huán)直到當(dāng)前列的倒數(shù)第2個數(shù)字
k = j + 1
Do While Sheets("sheet1").Cells(k, col) <> "" '循環(huán)直到當(dāng)前列的最后1個數(shù)字
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

這個需要用到編程了