Excel如何多个文件统计汇总（内详）

hbqchhp

再提供一个软件给你吧，这个我试了64116条记录汇总没有错。
你运行该软件后：
第一步：找到分表的目录（双击打开）
第二步：找到要汇总的总表表格
第三步：点汇总就行了。
第四步：再打开汇总表格就可以看到汇总的效果了（汇总前不要打开）
电子表格自动汇总1.rar (6.99 KB, 下载次数: 68)

2009-5-16 15:47 上传

点击文件名下载附件

thtfzhaobo

我这里没出现，整个程序没加容错，可能是超过65536的错误我没拿过来

thtfzhaobo

我测试了一下，还是没出问题，超出65536的问题，准确提示了，不解！！！！！！
关于之处理3万多行的事情，你可以去看一下数据类型的定义，看看各种数据类型的范围。
我目前的是office2007-SP2，不是是否有关系
最近机器很慢，可能该重作下了，也是很忙，没时间上来，几年没上来，最近同事有些事，想给他们找点培训型的资料、案例
希望你早日可以自己解决，整体程序虽然简短，涉及数据定义、文件夹，文件、sheet，range、单元格，相对位移，条件定位、循环、透视表、条件跳转等，内容比较全面，看懂了，一般的程序没问题

风中之竹

能不能给我源代码啊
对于如何去判断记录条数，完全不知道:(
同时判断两种格式的话，要我自己改实在有点难，呵呵
我在你原来那个上手动该该还行，判断记录条数的话，那就没辙了

风中之竹

1. arow1 = Cells.Find(What:=定位, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
   
2.         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
   
3.         , MatchByte:=False, SearchFormat:=False).Row
   
4. 
   
5.           acol1 = Cells.Find(What:=定位, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
   
6.         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
   
7.         , MatchByte:=False, SearchFormat:=False).Column

复制代码

这两段是不是就是分别从行和列去判断分表中ユーザ单元格后一格是否为空单元，并取出他们的行号和列号？

1. aRow = AK.Sheets(i).Range(Chr(64 + acol1) & "65536").End(xlUp).Row

复制代码

这个是用来判断分表中文件的最后一行的吧，

1. Range(Chr(64 + acol1) & "65536")

复制代码

这一段我该怎么理解呢？

1. Range("B65536")

复制代码

这个表示什么意思？excel的帮助没看懂

thtfzhaobo

第一段是找ユーザ的位置，取行列号
第二段你的判断是对的
其中那段是根据第一段取得的列判断最后一行
最后一段指的是单元格B65536

风中之竹

chr原来是用来将数字返还一个字符的，现在明白了

vba来判断最后一行时，是不是一定要给他一个范围来查找？
就像这里的B65536？
如果给定范围后，VBA找到的最后一行是不是就是指这个范围内的最后一行或者列？

thtfzhaobo

那要看你后面的参数,你看一下帮助,以你目前应可以理解

风中之竹

1. Range(Chr(64 + acol1) & "65536").End(xlUp).Row

复制代码

这个的意思就是从“?65536”这个单元格开始往上找，找到第一个非空单元格后，一直找到"?"这列的顶端，计算出总共有多少行（隐藏行不计算在内），

如果65536改成中间的某个行号，这条语句就全部都返回数值1了

1. n = ActiveSheet.UsedRange.Rows.Count
   
2. a = ActiveSheet.UsedRange.Rows(n).Row
   

复制代码

这个是网上搜到的，可以把隐藏行也计算在内

风中之竹

附件里有两个文件

粗看结构应该完全一样的
05-14那个文件汇总，是从J列开始汇总的
05-15，又能正常汇总了