vba - 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)

然后抄下来。