Q：數(shù)據(jù)放置在列A中，我要得到這些數(shù)據(jù)中任意3個(gè)數(shù)據(jù)的所有可能組合。如下圖1所示，列A中存放了5個(gè)數(shù)據(jù)，要得到這5個(gè)數(shù)據(jù)中任意3個(gè)數(shù)據(jù)的所有可能組合，如列B中所示。如何實(shí)現(xiàn)？
圖1
（注：這是無(wú)意中看到的一個(gè)問(wèn)題，我覺得程序編寫得很巧妙，使用了遞歸的方法來(lái)解決，非常簡(jiǎn)潔，特將該解答稍作整理后輯錄于此與大家分享！）
A：VBA代碼如下：
Sub Combinations()
Dim rng As Range
Dim n AsLong
Dim vElements As Variant
Dim lRow As Long
Dim vResult As Variant
‘要組合的數(shù)據(jù)在當(dāng)前工作表的列A
Set rng =Range(“A1”, Range(“A1”).End(xlDown))
‘設(shè)置每個(gè)組合需要的數(shù)據(jù)個(gè)數(shù)
n = 3
‘在數(shù)組中存儲(chǔ)要組合的數(shù)據(jù)
vElements =Application.Index(Application.Transpose(rng), 1, 0)
‘重定義進(jìn)行組合的數(shù)組大小
ReDim vResult(1 To n)
Call CombinationsREC(vElements, CInt(n), vResult, lRow, 1, 1)
End Sub
Sub CombinationsREC(vElements As Variant, _
p As Integer,_
vResult AsVariant, _
lRow As Long,_
iElement AsInteger, _
iIndex AsInteger)
Dim i AsInteger
For i =iElement To UBound(vElements)
vResult(iIndex)= vElements(i)
IfiIndex = p Then
lRow = lRow + 1
Range(“B” & lRow) = Join(vResult, “, “)
‘每組組合放置在多列中
Range(“C” &lRow).Resize(, p) = vResult
Else
‘遞歸調(diào)用
Call CombinationsREC(vElements, p, vResult, lRow, i + 1, iIndex + 1)
End If
Next i
End Sub
代碼的關(guān)鍵在于遞歸調(diào)用的實(shí)現(xiàn)，有興趣的朋友可以使用F8鍵逐語(yǔ)句運(yùn)行代碼觀察代碼效果，來(lái)理解實(shí)現(xiàn)過(guò)程。
代碼的圖片版如下：
