Vba 填充矩阵的向量

这是我的输入Excel：

L1  2   1
L1  1   2
L2  1   3
L3  1   1
L4  1   1

我希望在另一张纸上输出如下内容：

    L1  L2  L3  L4
1   2       1   1
2   1           
3       1       

这可能有助于：

---

确保列已标记，选择它们并单击“插入>表格-数据透视表”。

我将此作为使用数据透视表的替代方法。一个或另一个可能更有用/更方便，具体取决于上下文

手动将列标题L1-L4和行标题1-3输入到表2中

然后在

sheet2中输入以下数组公式！b2

使用

Ctrl-Shift输入

并向下复制：

=SUM((Sheet1!$A$1:$A$5=B$1)\*(Sheet1!$C$1:$C$5=$A2)\*(Sheet1!$B$1:$B$5))

将单元格的数字格式设置为

#

（单元格格式|数字选项卡|自定义并输入类型为

#

），以使任何零显示为空白

---

你自己试过什么吗？实际上我的域名是c。我是VBAAm新手，我是否正确理解输入中每行的第一个和第三个值给出了输出的列和行？如果是这样的话，在输入中是否有两行数据引用了输出中的同一列和同一行？我支持@KarolMarianSłuszniak的建议。您不只是使用透视表有什么具体原因吗？这正是他们想要的那种情况。我想把第二列的值放到矩阵中。汤姆·夏普先生，这不起作用。数据透视表正在工作。如果你知道确切的公式或宏代码（VBA），这非常有帮助。BALA s你是否明确地将公式作为数组公式输入，按住Ctrl和Shift键，然后按Enter键，使其显示在屏幕截图中的花括号中？此外，我假设您的数据在表1中，与您的问题完全相同，没有标题。我测试的时候还可以。