养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

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

时间:2024-11-15 15:57:27

下面是1年来活动开展,经镓恰鲜仍销商反馈总结表的日期,现在呢员工小王想把这些列上的信息转职成行上的信息,类似于进度条似的,能够清楚的反映出每家经销商在什么时间节点反馈了数赍铈于脏据。而且呢,小王每1年都会做这样的一次操作,有没有什么操作办法可以实现,而且将这个功能进行收藏,在遇到这样的工作,一键就可以生成想要的结果。

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

工具/原料

方方格子插件+VBA代码

方法/步骤

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

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

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

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

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

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

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

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

5、再弹出界面,我们需要按照如下图的内容进行设置,这里最关键的是这段vba代码:Sub数据汇总钽吟篑瑜AND二维转置()Dimd,arr,惺绅寨瞀rAsInteger[c:d].ClearSetd=CreateObject("Scripting.Dictionary")r=Cells(Rows.Count,1).End(xlUp).Rowarr=Range("a1:b"&r)Fori=1ToUBound(arr)IfNotd.exists(arr(i,1))Thend(arr(i,1))=Cstr(arr(i,2))Elsed(arr(i,1))=d(arr(i,1))&"+"&Cstr(arr(i,2))EndIfNext[c1].Resize(d.Count,1)=Application.Transpose(d.keys)[d1].Resize(d.Count,1)=Application.Transpose(d.items)EndSub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

© 一点知识