Excel中如何将长表格转换为宽表格？

一张图片胜过千言万语。假设在一张纸中我有下表：

使用这些信息，我想以编程方式在另一张纸中生成这样的表格（有点将长表格分解为宽表格）：

你怎样才能做到这一点？

使用VBA：

Range("G1:K99").Clear
For Each xx In Range("A:A")
    If xx.Value = "" Then Exit Sub
    Range("G1").Offset(xx.Value, 0) = xx.Value
    For e = 1 To 99
        If Range("G1").Offset(xx.Value, e) = "" Then
            Range("G1").Offset(xx.Value, e) = xx.Offset(0, 1).Value
            Exit For
        End If
    Next
Next

它是从“G”列创建的表。如果您想要另一张纸：

Sheets(2).Range("G1: ...

在...之前添加表格

没有VBA，遵循以下方案：

添加公式：

M2 -> =IFERROR(MATCH(L2;$A$1:$A$8;);"")
N2 -> =IFERROR(MATCH(L2;INDIRECT("$A" & (M2+1) & ":$A$8");)+M2;"")
O2 -> =IFERROR(MATCH(L2;INDIRECT("$A" & (N2+1) & ":$A$8");)+N2;"")
P2 -> =IFERROR(INDEX($B$1:$B$8;M2);"")          Autocomplete also columns to R

和自动完成...