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

下面是1年来活动开展，经销商反馈总结表的日期，现在呢员工小王想把这些列上的信息转职成行上的信息，类似于进度条似的，能够清楚的反映出每家经销商在什么时间节点反馈了数据。

而且呢，小王每1年都会做这样的一次操作，有没有什么操作办法可以实现，而且将这个功能进行收藏，在遇到这样的工作，一键就可以生成想要的结果。

（方方格子插件+VBA代码）

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

2.然后分解步骤，首先在开始之前，我们一定要将B列日期列进行一个升序排序

3.然后呢需要选择DIY工具箱中的收纳箱

4.弹出对话框选择本地新建

5.再弹出界面，我们需要按照如下图的内容进行设置，这里最关键的是这段vba代码：

Sub 数据汇总AND二维转置()

Dim d, arr, r As Integer

[c:d].Clear

Set 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)) Then

d(arr(i, 1)) = Cstr(arr(i, 2))

Else

d(arr(i, 1)) = d(arr(i, 1)) & "+" & Cstr(arr(i, 2))

End If

Next

[c1].Resize(d.Count, 1) = Application.Transpose(d.keys)

[d1].Resize(d.Count, 1) = Application.Transpose(d.items)

End Sub

​

6.确定添加完成操作，然后搜索关键字找到这个操作，并单击执行按钮

7.好了即可看到每家经销商的反馈日期，统一合并到行上面来了

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

 

是很强大的Excel功能，如果觉得经验帮到了你，请记得加关注