一、excel制作简单程序
EXCEL表格中如何制作简单的流程图？下面，我们一起来看下操作方法。
开启分步阅读模式
操作方法
01
启动EXCEL软件，新建工作表。
02
鼠标移到菜单栏中点击：插入
03
如图，再点击此按钮。
04
弹出smartart图形面板。点击左侧的：流程
05
右边展示各种流程图，我们从中选择一种。在这里选择基本流程图。
06
选好流程图再点确定，那以，该流程图即显示在工作表中。鼠标双击左侧第一个方框，光标定位在这，然后，输入文字。
07
接着，鼠标再点击第二个方框，光标定位在这，再输入文字。
08
同样方法，在第三个方框内输入文字。那么，一个简单的流程图就制作好啦。
对于在职场办公的朋友们来说，经常要使用到Excel演示公式，制作各种图表，其实Excel还可以制作简单的流程图，估计有些小伙伴们还不知道吧，今天就来给大家演示一下，过程含简单哦。
一，首先打开Excel，点击插入SmartArt，择你需要使用的流程图形。
二，点击一下你选择的流程图形，就会出来SmartArt工具，点击“设计”然后选择一个你喜欢的格式，在图形中输入文本。
三，最后一步，点击“视图”找到“网格线”这个功能，去掉勾即可。
以上只是用Excel制作一些简单的流程图，接下来我忍不住要和大家分享一款制作流程图的好资源，叫做：迅捷流程图制作软件，因为它是一款专业的绘制流程图的软件，里面有许多模板打开就可以操作了。
好了，以上就是今天的分享了，如果大家有什么需要的请给我评论哦。
二、excel怎么用vba编写一个这样的程序
Sub 双字典统计()
Dim Rng As Range, Dic As Object, i&, Arr, Brr
Set Dic = CreateObject("Scripting.Dictionary")
Arr = [A2:C12]
For i = 1 To UBound(Arr)
If Not Dic.Exists(Arr(i, 1)) Then
Set Dic(Arr(i, 1)) = CreateObject("Scripting.Dictionary")
Dic(Arr(i, 1))(Arr(i, 2)) = Arr(i, 3)
Else
Dic(Arr(i, 1))(Arr(i, 2)) = Dic(Arr(i, 1))(Arr(i, 2)) + Arr(i, 3)
End If
Next i
Set Rng = [F1]
Brr = Dic.Keys
For i = 0 To UBound(Brr)
Rng.Offset(0, i * 2) = Brr(i)
Rng.Offset(1, i * 2).Resize(Dic(Brr(i)).Count, 2) = _
Application.WorksheetFunction.Transpose(Array(Dic(Brr(i)).Keys, Dic(Brr(i)).Items))
Set Dic(Brr(i)) = Nothing
Next i
Set Dic = Nothing
End Sub
