乾学院 1750 号会员
2 回帖  •  577 浏览  • 
     ...

将后 4 列有值格拆到不同的行

 
行转列(7)

例题描述和简单分析

有Excel 文件 Book1.xlsx，sheet1 中数据如下所示：


 A B C D E F
1 Color Food 1-Jan 1-Feb 1-Mar 1-Apr
2 Red Coke 3 4 5
3 Purple Grapes 6 3 7
4 Green Grapes 1 1 1
5 Yellow Lemon 2 3
6 Orange Orange 1 2
7 Purple Grapes 2
8 Purple Grapes 3
9 Purple Grapes 4
10 Purple Grapes 5

需要在sheet2 中，将后 4 列有值格拆到不同的行，结果如下： 


 A B C D
1 Color Food Date Quantity
2 Red Coke 1-Jan 3
3 Red Coke 1-Feb 4
4 Red Coke 1-Mar 5
5 Purple Grapes 1-Feb 6
6 Purple Grapes 1-Mar 3
7 Purple Grapes 1-Apr 7
8 Green Grapes 1-Jan 1
9 Green Grapes 1-Feb 1
10 Green Grapes 1-Mar 1
11 Yellow Lemon 1-Mar 2
12 Yellow Lemon 1-Apr 3
13 Orange Orange 1-Jan 1
14 Orange Orange 1-Feb 2
15 Purple Grapes 1-Jan 2
16 Purple Grapes 1-Feb 3
17 Purple Grapes 1-Mar 4
18 Purple Grapes 1-Apr 5

解法及简要说明

Excel 中加载插件 ExcelRaq.xll，加载宏文件 esproc_template.xla 后。

选中sheet2 的 A1 格，输入公式：=esproc("=?1.news(~.to(3:);?1.~(1):Color,?1.~(2):Food,?2(#):Date,~:Quantity).select(Quantity)",Sheet1!A2:F10,Sheet1!C1:F1)，按下 ctrl+enter 后，删除第一行，即可实现需求。

问答搜集

https://stackoverflow.com/questions/63601754/convert-array-to-list-and-copy-rows-that-are-on-the-same-row-vba


行转列(7)