经验直达：
- excel怎么用vba编写一个这样的程序
- 怎么把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
二、怎么把excel工作表做成程序
【怎么把excel工作表做成程序 excel怎么用vba编写一个这样的程序】做成跟程序一样的这个我不会，但是可以让你把写公式的单元格锁住，就不会随意被修改了 。
1、全选工作表（CTRL A） ， 右键-设置单元格格式-保护-取消“锁定”前面的勾子
确定 。
2、按F5键-定位条件-公式
确定 。
3、右键-设置单元格格式（或菜单栏上的格式-单元格）
保护-勾上“锁定”-确定 。
这是把写上公式的单元格锁?。渌牟凰?br>
4、菜单栏上的“工具”-“保护”-“保护工作表”
密码可以不输入，
“允许此工作表的所有用户进行”这些选项可根据实际需要勾?。?默认是勾选
第一、二项
确定
现在 ， 这些写了公式的单元格就不会被随意改动了，双击写公式的单元格看看，是不是出现此提示：
需要修改公式就解除工作表的保护，修改后再保护工作表 。