,比如需要按照2个甚至多个条件来分类汇总的时候,这段代码就需要进行改动了:
dic(VBA.CStr(arr(i, 2))) = dic(VBA.CStr(arr(i, 2))) + VBA.CDbl(...arr(i, 3))
如果简单的用&把多个条件的字段数据进行连接起来,可能会出现一些问题。...个条件连接起来都是ABC,可是想要的结果显然不是这样的,这个时候可能就会在2个条件连接的中间再加一个特殊的符号,用这样的方式来避免这种错误。...项目", , 1)
其他几乎所有使用ADO的都是一样的代码,一旦需要修改按2个条件汇总,只需要修改一下sql语句就可以了:
Range("F1").CopyFromRecordset AdoConn.Execute...("select 条件1,条件2,Sum(数据) from [Sheet2$] group by 条件1,条件2", , 1)
仅仅是修改了一下sql语句中需要分类汇总用的字段名称,相比用字典来汇总简化了非常多