Sub t()
Dim a As Variant, b As Variant ' input and output arrays
Dim r As Integer, s As String, i As Integer
a = Range("d4:f8").Value ' input matrix
ReDim b(1 To UBound(a) ^ UBound(a, 2)) ' output array
r = 0
' I am too lazy to write a full recursive routine
' thus I will let the main program go thru each line of the first column
' and the called routine automatically recurses over the rest
For i = 1 To UBound(a) ' go thru the first column
Call Combi(b, r, "", a, i, 1) ' combi is a recursive routine, it will go thru all other columns
Next i
For i = 1 To UBound(b) ' output
Range("G11").Offset(i - 1).Value = b(i)
Next i
End Sub
Sub Combi(ByRef oarr As Variant, ByRef oRow As Integer, ByVal oStr As String, _
ByVal iarr As Variant, ByVal iRow As Integer, ByVal iCol As Integer)
' parameters: output array, current output row, output string,
' input array, input array current row, input array current column
Dim i As Integer, s As String
s = iarr(iRow, iCol)
If iCol > 1 And Len(s) < 3 Then s = Right("000" & s, 3) ' patch the length with 0's
oStr = oStr & s
If iCol >= UBound(iarr, 2) Then ' last column, no need to go any further
oRow = oRow + 1
oarr(oRow) = oStr
Exit Sub
End If
For i = 1 To UBound(iarr) ' continue to go thru every line of the next level
Combi oarr, oRow, oStr, iarr, i, iCol + 1
Next i
End Sub
(hổng biết tại sao nữa )
