传播Excel数据

传播可能不是正确的词，但我发现“合并”和“结合”问题的答案似乎并不适用。

我有两个完全不同的数据表。例如：sheet1可能有一列项目，而sheet2可能有一列颜色。我需要在一张纸上最后放两列，其中包含其他两张纸的每列可能组合。

所以在上面的例子中，如果sheet1有140个项目而sheet2有17种颜色，我需要sheet3有一个项目列，一个颜色列和2,380个记录（每个项目和颜色组合可以有一个）。

这是一个你可以适应的简单例子。

我们保存 7 列中的项目 一个 和 3 列中的颜色 乙 。运行这个短宏：

Sub combine()
    Dim K As Long, i As Long, j As Long, Nitems As Long, Ncolors As Long

    K = 1
    Nitems = 7
    Ncolors = 3

    For i = 1 To Nitems
        For j = 1 To Ncolors
            Cells(K, "C").Value = Cells(i, "A").Value & "," & Cells(j, "B").Value
            K = K + 1
        Next j
    Next i
End Sub

将在列中生成此 C ：