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

以下是过去一年活动进展的经销商反馈汇总表时间轴，员工小王希望将列数据转换为行格式，呈现为进度条形式，以便直观展示每家经销商提交数据的具体时间节点。

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

2、 然后分解步骤，首先在开始之前，我们一定要将B列日期列进行一个升序排序3然后呢需要选择DIY工具箱中的收纳箱4弹出对话框选择本地新建

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

6、 确定添加完成操作，然后搜索关键字找到这个操作，并单击执行按钮7好了即可看到每家经销商的反馈日期，统一合并到行上面来了