使用 Excel VBA 按顺序转置列

Transpose Columns in Order using Excel VBA

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

我尝试使用特殊的转置粘贴,但它产生了 3000 多列信息。我也试过数据透视表,但我得到的信息是乱序的。

"Info" 的三件是每个员工。现在,这些线是垂直的,但在我们的最终结果中,每个员工应该有三行。

Transpose Left Original Data Right Outcome Needed

你可以通过下面的公式来实现

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

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

所以如果你有 3000 行数据,公式应该被拖到 9000 行。