列到多行

时间:2016-09-12 23:11:05

标签: excel vba excel-vba

我想要一个宏来转换以下

NAME COLOR1 COLOR2 COLOR3 COLOR4
jane   blue   pink    red   teal
john    red  black  green   gold     

NAME COLOR
jane blue
jane pink
jane red
jane teal
john red
john black
john green
john gold

我尝试过使用内置的转置工具,但这似乎不起作用。好像我需要一个自定义脚本......

1 个答案:

答案 0 :(得分:1)

对于 2 3 行的数据,选择一个单元格并输入:

=INDEX($A$2:$A$9999,ROUNDUP(ROWS($1:1)/4,0))

在它旁边输入:

=OFFSET($B$2,ROUNDUP(ROWS($1:1)/4,0)-1,MOD(ROWS($1:1)-1,4))

并将其复制下来:

enter image description here

如果您真的喜欢宏,请使用宏存储并复制公式。