Excel收纳箱：二维汇总将列上的日期转到行上

1、首先看到动图演示吧，来感受一下Excel的强大

5、再弹出界面，我们需要按照如下图的内容进行设置，这里最关键的是这段vba代码：Sub 数据汇总钽吟篑瑜AND二维转置()Dim d, arr, r As Integer [c:d].ClearSet d = CreateObject("Scripting.Dictionary") r = Cells(Rows.Count, 1).End(xlUp).Row arr = Range("a1:b" & r)For i = 1 To UBound(arr) If Not d.exists(arr(i, 1)) Thend(arr(i, 1)) = Cstr(arr(i, 2)) Elsed(arr(i, 1)) = d(arr(i, 1)) & "+" & Cstr(arr(i, 2)) End IfNext [c1].Resize(d.Count, 1) = Application.Transpose(d.keys) [d1].Resize(d.Count, 1) = Application.Transpose(d.items)End Sub

8、接下来分别按+号分列数据、在经销商处进行冻结视图等操作，实现右侧滚动，进行进度条形式的显示

9、好了这个功能我们收藏了，等到下次再做的时候，一键执行就可以了