如何使用宏将数据从行转置为列

Question

我对 VBA 完全陌生（除了手动录制和运行），所以希望有人可以帮助我设计这个。我有一个工作表，根据日期和类型，每个唯一 ID（A 列）的行数未指定。 ：

A        B             C            D

1    12Jan2010    type A     Person1

1    16Jan2010    type B     Person1

2    06Dec2009    type A     Person2 

3    16Dec2009    type A     Person1

5    20Dec2009    type A     Person2

5    02Jan2010    type B     Person2
4    10Dec2009    type A     Person2

基于唯一 ID，我想将此数据转置为每个唯一 ID 的 1 行，然后将所有日期值按时间顺序排列在该行中，如下所示：

A   B           C                D
1   Person1     12Jan2010(A)     16Jan2010(B)  
2   Person2     06Dec2009(A)  
3   Person1     16Dec2009(A)  
4   Person2     10Dec2009(A)  
5   Person2     20Dec2009(A)     02Jan2010(B)  

有没有办法可以完成此操作在宏中？

Answer 1

使用数据透视表！选择整个表，并创建一个数据透视表，其中侧字段为 A 列，顶部字段为 B 列，并且仅在中间聚合部分中对 A 列进行计数。

您最终会得到一个由唯一 id 作为行、日期作为列以及交叉点处的行数组成的矩阵！