使用Excel VBA

Question

我需要使用下图中的示例按顺序调换大量数据。图像的左侧是信息来自报告的方式，右侧是我需要它的样子。

我尝试使用Transpose paste special，但它会产生3000多列信息。我也尝试过数据透视表，但我得不到信息。

三个＆＃34;信息＆＃34;是每个员工。现在看来，这些线是垂直的，但在最终结果中，每个员工应该有三行。

Transpose Left Original Data Right Outcome Needed

Answer 1

您可以通过以下公式实现此目的

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)

因此，如果您有3000行数据，则应将公式拖动到9000行。