[已解决]谢谢枯禅老师和青城老师，另类的分类汇总

lhj323323 · 发表于 2010-3-7 14:29

5DJZoLPN.rar (39.11 KB, 下载次数: 1)

枯禅 · 发表于 2010-3-7 16:57

4khTGtNl.zip (81.56 KB, 下载次数: 24)

lhj323323 · 发表于 2010-3-7 22:51

arr = .Range("z2:ai" & .[z65536].End(3).Row)

老师，谢谢帮助，想问一句，上面的End(3).中的3表示什么意思呀？

枯禅 · 发表于 2010-3-7 22:53

QUOTE:

以下是引用lhj323323在2010-3-7 22:51:00的发言：

arr = .Range("z2:ai" & .[z65536].End(3).Row)

老师，谢谢帮助，想问一句，上面的End(3).中的3表示什么意思呀？

xlup

lhj323323 · 发表于 2010-3-7 23:57

ntgYO4kb.rar (84.05 KB, 下载次数: 1)

青城山苦丁茶 · 发表于 2010-3-8 10:13

.Range("A2").Resize(Sheets("数据源").[y65536].End(3).Row - 1, 1) = arr9

或.Range("A2").Resize(ubound(arr9), 1) = arr9

lhj323323 · 发表于 2010-3-8 20:30

谢谢青城老师，的确是这个地方需要改一下。

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

回复：（枯禅）[upload=zip]viewFile.asp?ID=108186[/...