图中3列数据应该有240种组合，怎样都列出来？（查到有两列数据的，但是不懂参数意义，所以仍然不会）

更新时间2018-11-27 08:57:09

Sub 组合2()

  '列出这240个对象组合，用数组存储结果，然后输出于D列中

  Dim cm(1 To 420, 1 To 1) '命名数组

    For a1 = 1 To 6  'A列6个数据

    For a2 = 1 To 8  'B列8个数据

    For a3 = 1 To 5  'C列5个数据，嵌套循环

    n = n + 1

    cm(n, 1) = Cells(a1, 1) & "," & _

      Cells(a2, 2) & "," & _

      Cells(a3, 3) '将循环变量对应的A:C列的值赋值于数组

 Next: Next: Next

    Range("D1:D240") = cm '将数组的值赋值于单元格区域

End Sub