VBA實現排列組合，跪求！！！

使用下列宏，計算結果放在新建的Sheet裏面

Dim?a,?m,?n,?ii,?d

Set?a?=?ActiveSheet

m?=?Split("1?2?3?4?5?6?7?8?9?10?11?12?1?2",?"?")

Sheets.Add?After:=Sheets(Sheets.Count)

Range("A1:C1")?=?Array("分組",?"所求度數",?"最大數值和")

For?i?=?0?To?2

For?j?=?0?To?3

n1?=?m(i?+?3?*?j)

n2?=?m(i?+?3?*?j?+?1)

n3?=?m(i?+?3?*?j?+?2)

ii?=?2?+?j?+?i?*?4

Range("A"?&?ii)?=?n1?&?"?"?&?n2?&?"?"?&?n3

s?=?0

d?=?0

For?k?=?0?To?90

t?=?a.Cells(k?+?2,?n1?+?1)?+?a.Cells(k?+?2,?n2?+?1)?+?a.Cells(k?+?2,?n3?+?1)

If?t?>?s?Then

s?=?t

d?=?k

End?If

Next?k

Range("B"?&?ii)?=?d

Range("C"?&?ii)?=?s

Next?j

Next?i

End?Sub