Vba 宏以插入行和基于计数的所有可能性

这是我在这里的第一篇文章，但我过去经常访问这里寻求帮助

我正在寻找一个宏，根据集合中的项数减去1，在每个条目之间插入特定数量的行，然后插入每个组合

我会尽力举个例子

假设我有大量的收藏，每个收藏都是独一无二的。我想与该系列中的每个项目建立一对一的关系。因此，如果我有一个集合<代码>红色<代码>和项目<代码>1<代码>和<代码>2<代码>和<代码>3<代码>和一个集合<代码>蓝色<代码>和项目<代码>a<代码>和<代码>B<代码>和<代码>C<代码>和<代码>E<代码>

我的工作簿中有3列

Collection, Primary Item, Relationship Item
Row 1 = Red, 1.
Row 2 = Red, 2.
Row 3 = Red, 3.
Row 4 = Blue, A.
Row 5 = Blue, B.
Row 6 = Blue, C.
Row 7 = Blue, D.
Row 8 = Blue, E.

我的目标是在

Red

集合的每行之间插入2行，在

Blue

集合的每行之间插入4行。然后在新的空白列中复制每个集合和目标项以及关系项中的每个相关项

这将是这样的：

Collection, Target Item, Relationship Item
Row 1 = Red, 1, 2.
Row 2 = Red, 1, 3.
Row 3 = Red, 2, 1.
Row 4 = Red, 2, 3.
Row 5 = Red, 3, 1.
Row 6 = Red 3, 2.
Row 7 = Blue, A, B.
Row 8 = Blue, A, C.
Row 9 = Blue, A, D.
Row 10 = Blue, A, E.
Row 11 = Blue, B, A.
Row 12 = Blue, B, C.
Row 13 = Blue, B, D.
Row 14 = Blue, B, E.
Row 15 = Blue, C, A.
Row 16 = Blue, C, B.

等等

这将是一个需要多次使用的东西，其中包含不同数量的集合和项目

---

我希望我的描述足够详细，如果您对如何简化我的解释有任何疑问或建议，请告诉我。

我建议您将输出到单独的工作表，而不是插入到现有的工作表中。 这将使您的参数文件分开进行校对，并简化循环

接下来，您需要一个嵌套循环机制来创建所有可能的组合。 尝试此循环链接。