在 Excel 中将多列转换为行

Question

如何将文件从一种格式转换为另一种格式：基本上，包含单位销售额的周列变为具有多行的两列，前几列（包含客户等信息）具有多行单位销售额列。

来自

致

我认为有办法在 Power Query 中做到这一点？我不是一个非常高级的用户，所以非常感谢一步一步如何做到这一点:)

除非有我可以运行的宏？

谢谢

伊娃

Answer 1

试试这个代码

Sub Test()
Dim a           As Variant
Dim b           As Variant
Dim i           As Long
Dim j           As Long
Dim k           As Long
Dim x           As Long

a = Sheets("Sheet1").Range("A1:L" & Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row).Value
ReDim b(1 To UBound(a, 1) * 8, 1 To 6)
j = 1

For i = 2 To UBound(a, 1)
    For k = 5 To UBound(a, 2)
        For x = 1 To 4
            b(j, x) = a(i, x)
        Next x
        b(j, 5) = a(1, k)
        b(j, 6) = a(i, k)
        j = j + 1
    Next k
Next i

With Sheets("Sheet1").Range("O1")
    .Resize(, UBound(b, 2)).Value = Array("Account", "Code", "Product", "Segment", "Week", "Unit Sales")
    .Offset(1).Resize(UBound(b, 1), UBound(b, 2)).Value = b
End With
End Sub