在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