怎样才能列出组合数组中所有的可能
dim ArrTxt(4,6)
ArrTxt(1,0)=4 '第1列有4行
ArrTxt(1,1)="A1"
ArrTxt(1,2)="A2"
ArrTxt(1,3)="A3"
ArrTxt(1,4)="A4"

ArrTxt(2,0)=3'第2列有3行
ArrTxt(2,1)="B1"
ArrTxt(2,2)="B2"
ArrTxt(2,3)="B3"

ArrTxt(3,0)=2'第3列有2行
ArrTxt(3,1)="C1"
ArrTxt(3,2)="C2"

ArrTxt(4,0)=3'第4列有3行
ArrTxt(4,1)="D1"
ArrTxt(4,2)="D2"
ArrTxt(4,3)="D3"
'-------
'A1  B1 C1 D1
'A2  B2 C2 D2
'A3  B3      D3
'A4

列出所有的组合，如下
A1B1C1D1
A1B1C1D2
A1B1C1D3

A1B1C2D1
A1B1C2D2
A1B1C2D3
......
。。。。

怎样写代码？（列数不一定是4列