excel行转列

netdf

如下图订单日期如何每行都有。一个品号一个日期一个数量。

祝洪忠-

单击数据区域任意单元格，数据选项卡  自表格

根据提示将数据加载到PQ编辑器

按Shift键 选中左侧两列，右键 逆透视其他列

zhangcheng6688

学习一下数组
Sub test()
arr = [a1].CurrentRegion
ReDim brr(1 To 10000, 1 To 4)
For i = 3 To UBound(arr, 2)
   For j = 2 To UBound(arr)
      m = m + 1
      brr(m, 1) = arr(j, 1)
      brr(m, 2) = arr(j, 2)
      brr(m, 3) = arr(1, i)
      brr(m, 4) = arr(j, i)
   Next
Next
[a55].Resize(m, 4) = brr
End Sub