请高人帮帮我，谢谢。在线等

wssicanfly · 发表于 2009-2-20 23:32

原帖由 szt 于 2009-2-20 23:21 发表
代码里有个错误，应该是for i=2 to 65536（原来错把65536写成4了），尽管会降低运行速度，但可以保证不遗漏数据，如果楼主不会有那么多行数据的话，也可以比65536小一点，以提高运行速度。

判断一个表有多少行数据可以用一个简单的公式
[A65536].End(Xlup).row
其中[A65536].End(Xlup)返回为第一列最后一行有数据的单元格
这个相当于在单元格[A65536]按了 Ctrl+向上箭头。
这样可以避免使用无效的循环

[ 本帖最后由 wssicanfly 于 2009-2-20 23:34 编辑 ]

jssy · 发表于 2009-2-20 23:49

用透视表也很容易做到，而且速度比用函数快多了！

多工作表汇总.rar (6.52 KB, 下载次数: 9)

szt · 发表于 2009-2-21 08:24

11楼的朋友，非常感谢，你又教了我一招，呵呵

cq75612 · 发表于 2009-2-21 13:04

谢谢各位了。

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