求助按给出表的格式汇总的代码

lzqmsy · 发表于 2014-7-17 20:29

chxw68 发表于 2014-7-17 15:34
详见附件。

我把数据加到17000行了,时间仅用0.2秒,真快

lzqmsy · 发表于 2014-7-18 15:53

chxw68 发表于 2014-7-17 15:34
详见附件。

老师,还有一事向您请教,为什么您写的代码受32767行限制呢?怎么才能不受限制呀?请您忙里抽闲给予解答,不胜感谢!!!

chxw68 · 发表于 2014-7-18 16:16

把下面的语句
Dim r%, i%
换成
Dim r&,i&

lzqmsy · 发表于 2014-7-18 16:31

chxw68 发表于 2014-7-18 16:16
把下面的语句
Dim r%, i%
换成

好的,谢谢!!!

lzqmsy · 发表于 2014-7-19 00:24

chxw68 发表于 2014-7-18 16:16
把下面的语句
Dim r%, i%
换成

老师,再问个问题: .Range("a5").Resize(d.Count, c) = Application.Transpose(Application.Transpose(d.Items)) 这个为什么要转置两次呢?添麻烦了,谢谢!!!

chxw68 · 发表于 2014-7-19 07:19

lzqmsy 发表于 2014-7-19 00:24
老师,再问个问题: .Range("a5").Resize(d.Count, c) = Application.Transpose(Application.Transpose(d.I ...

目的是为了转换成与表格格式一致的二维数组，建议在中断模式下看看就明白了。

lzqmsy · 发表于 2014-7-19 20:04

chxw68 发表于 2014-7-19 07:19
目的是为了转换成与表格格式一致的二维数组，建议在中断模式下看看就明白了。

谢谢了,最近多次麻烦你,而你很耐心,我学到很多知识,真是感谢你呀!!!

lzqmsy · 发表于 2015-1-4 10:52

chxw68 发表于 2014-7-17 15:32
如果汇总表格的横竖表头固定的话，也可以使用数组的办法进行汇总。

老师,您好,我还有事要请教您,如果方便请加我QQ1418035409,或者告诉我您的QQ号

lzqmsy · 发表于 2015-1-4 11:15

chxw68 发表于 2014-7-19 07:19
目的是为了转换成与表格格式一致的二维数组，建议在中断模式下看看就明白了。

老师,我在QQ里已经添加您了,麻烦确认一下,谢谢!!!

lzqmsy · 发表于 2015-1-4 12:52

chxw68 发表于 2014-7-19 07:19
目的是为了转换成与表格格式一致的二维数组，建议在中断模式下看看就明白了。

老师,文件我已经发给您了,有时间帮看看日报的代码要怎么写,多谢了!!!

		自动登录	找回密码
密码			免费注册

[求助] 求助按给出表的格式汇总的代码