sub s()
获取A1单元格所在的区域赋值到数组arr中 即：A1:C15
创建字典对象
K=1
FOR i= 2 to 数组上界索引号 即：总行数15
t= arr(第i行，第1列)&arr(第i行，第2列) 例如:张12019/10/16
if 字典不存在这个字符串键值
k=k+1
将k存入字典，并指定键值为t
如果 k<>i
arr(k行，1列)=arr(i行，1行)
arr(k行，2列)=arr(i行，2行)
arr(k行，3列)=arr(i行，3行)
end if
else
arr(k行,第3列)=arr(k行,第3列)+arr(i行,第3列) 即：第3列数值累加
end if
[f1].resize(k,3)=arr 即：将AB列同样数据的行对应的第3列值累加后的数组传递到单元格F1开始处
end sub
