Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2495|回复: 4

在VBA筛选汇总时,无法从指定行列开始提取数据

[复制链接]
发表于 2021-2-26 13:08 | 显示全部楼层 |阅读模式
本帖最后由 roseland 于 2021-2-28 10:39 编辑

Sheet1:数据 - 为指定报表格式
Sheet2:汇总 - 为已经做好的VBA公式按钮

现有问题是:
在进行"汇总”时,A2列只能从”数据“A6开始提取数据,我想只从A15开始,如何调整公式?

BSS-ABC采购项目一键汇总版v3.0.zip

255.83 KB, 下载次数: 14

发表于 2021-2-26 14:57 | 显示全部楼层
arr = Sheets("数据").Range("a5:e" & endrg)
改成
arr = Sheets("数据").Range("a15:e" & endrg)


祝順心,南無阿彌陀佛!

回复

使用道具 举报

 楼主| 发表于 2021-2-26 17:09 | 显示全部楼层
cutecpu 发表于 2021-2-26 14:57
arr = Sheets("数据").Range("a5:e" & endrg)
改成
arr = Sheets("数据").Range("a15:e" & endrg)

修改成arr = Sheets("数据").Range("a15:e" & endrg)后,提示报错:下标越界,如何解决?
回复

使用道具 举报

发表于 2021-2-26 18:18 | 显示全部楼层
roseland 发表于 2021-2-26 17:09
修改成arr = Sheets("数据").Range("a15:e" & endrg)后,提示报错:下标越界,如何解决?

代碼裡:endrg - 4 的地方 改成  endrg - 14


祝順心,南無阿彌陀佛!



回复

使用道具 举报

 楼主| 发表于 2021-2-28 10:39 | 显示全部楼层
cutecpu 发表于 2021-2-26 18:18
代碼裡:endrg - 4 的地方 改成  endrg - 14

谢谢大神~
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-27 00:55 , Processed in 0.427410 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表