求教各位老师，如果a是a1单元格内的6个数怎么实现，另外怎么把输出结果用逗号隔开

boluoyou

Sub SumCombine()

a = Array(1, 2, 3, 4, 5, 6)或a = Array(4,5, 6, 7, 8, 9)

rr = 1

For i = 0 To 2

For j = i + 1 To 3

For k = j + 1 To 4

For l = k + 1 To 5

Cells(rr, 1) = a(i) & a(j) & a(k)& a(l)

rr = rr + 1

Next

Next

Next

Next

End Sub

求教各位老师，如果a是读取a1单元格内的6个数怎么实现，另外怎么把输出结果用逗号隔开，麻烦老师指点。