作者：乔山办公网日期：
返回目录：excel表格制作
Sql = "select [最新业务归属人抄袭],sum([实收保费]) from [" & arr & "] where [最新渠道类型]='传统直销业务' group by [最新业务归属人] order by [最新业务归属人]"
试一下？
确认一下，列zhidao名都存在
看这一句：
ArrYS = oSht.Range(str1 & "4:" & str1 & oSht.Range("A65536").End(xlUp).Row)
这是把一块区知域赋值给了一个数组。区域是带行列号的，道因此是二内维数据；赋值给了数组ArrYS，自然这个数组也是二维的容，第一个参数是行，第二个参数是列。
代码已发你私信。
从头到尾，你都没有把任何数据存入数据字典，字典一直是空的状态。
If Not d.exists(username) Then
'加一句
d(username)=1