Excel（或VBA）条件转置行

Question

我下面有一个数据集，列标题中有月份，我想根据当前月份来复制行。 我遇到的一个问题是自动化，因为用户不断被添加/删除。

UserID  User State Jan($) Feb ($) Mar ($) .... Dec ($) 
111     AAA   CT    $55    $100   $125         $100       
112     BBB   NJ    $50    $34    $125         $125  
113     CCC   NV    $55    $100   $125         $155  
114     DDD   VT    $95    $108   $75          $199  
115     EEE   NJ    $20    $100   $125         $120  

样本输出：

UserID User State Month Spend
111    AAA   CT    Jan   $55
111    AAA   CT    Feb   $100
111    AAA   CT    Mar   $125
111    AAA   CT    Apr   $80
111    AAA   CT    May   $70
.
.
.
115    EEE   NJ    Nov  $50
115    EEE   NJ    DEC  $120

Answer 1

对于公式答案：

对于前3列：

在第一列的第一个单元格中，您想要的数据是A11：

=INDEX(A:A,QUOTIENT(ROW(1:1)-1,12)+2)

本月：

复制两列，然后向下复制。

在要获取数据的第四列的第一个单元格中，我的是D11：

=CHOOSE(MOD(ROW(1:1)-1,12)+1,"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")

然后抄下来。

对于金额：

在要获取数据的第五列的第一个单元格中，我的是E11：

=INDEX($A:$O,QUOTIENT(ROW(1:1)-1,12)+2,MOD(ROW(1:1)-1,12)+4)

然后将其复制下来。

Answer 2

您没有说Access，但是这是在Access中可以完成的方法。 我认为Excel PivotTable无法做到这一点...？
您需要与交叉表查询相反的排序。
联合查询执行此操作。
看看这个例子是否能使您朝正确的方向前进。