使用Excel VBA按顺序转换列

使用Excel VBA按顺序转换列,vba,excel,excel-2010,transpose,Vba,Excel,Excel 2010,Transpose,我有大量的数据需要转换,以便使用下图中的示例。图像的左侧是信息如何来自报告,右侧是我需要它的样子 我曾尝试使用转置粘贴特殊功能,但它会产生3000多列信息。我也尝试过透视表,但我得到的信息是无序的 这三条“信息”是针对每位员工的。现在,行是垂直的,但在我们的最终结果中,每个员工应该有三行 您可以通过以下公式实现这一点 因此,如果有3000行数据,则应将公式拖至9000行 F1 = INDEX($A$1:$A$3,1+QUOTIENT(ROW()-ROW($F$1),3)) G1 = VLOO

我有大量的数据需要转换,以便使用下图中的示例。图像的左侧是信息如何来自报告,右侧是我需要它的样子

我曾尝试使用转置粘贴特殊功能,但它会产生3000多列信息。我也尝试过透视表,但我得到的信息是无序的

这三条“信息”是针对每位员工的。现在,行是垂直的,但在我们的最终结果中,每个员工应该有三行


您可以通过以下公式实现这一点

因此,如果有3000行数据,则应将公式拖至9000行

F1 = INDEX($A$1:$A$3,1+QUOTIENT(ROW()-ROW($F$1),3))

G1 = VLOOKUP(F1,$A$1:$D$3,2+MOD(ROW()-ROW($F$1),3),FALSE)