将“数字”映射到“行”的 VBA 代码如下所示

Question

我正在尝试找到一种方法来自动化以下过程：

假设我们有以下数据：

我想要做的是找到一种方法将数字与行并排放置，如下所示：

非常感谢任何帮助或指导，谢谢大家。

我对 Excel VBA 相当陌生，我什至很难想象如何做到这一点。我理解应该发生的是，代码应该能够在“数字”列表中的每个单元格递归地执行此操作。因此，第一个数字被映射到“行”数据中的所有行，然后代码对列表中的下一个数字执行相同的操作，依此类推。

Answer 1

您可以使用 Unpivot2 宏。

首先，准备源表。将数字复制到新位置，然后通过转置复制上面的行（选择 C1:E2，复制，选择 G3，选择性粘贴）：

然后选择表格并激活数据透视单元：

运行宏并得到结果：