ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1087|回复: 10

[求助] 怎么只提1个数

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-3-5 21:51 | 显示全部楼层 |阅读模式
老师,有表是跨表提数,但不知错在哪里,只能提1个数,敬请老师指点。谢谢

怎么只提1个数据.rar

19.74 KB, 下载次数: 18

TA的精华主题

TA的得分主题

发表于 2023-3-5 22:02 | 显示全部楼层
arr = .Range("f2:h" & .Cells(Rows.Count, 2).End(xlUp).Row)
.Cells(Rows.Count, 2).End(xlUp).Row这句的问题

TA的精华主题

TA的得分主题

发表于 2023-3-5 22:16 | 显示全部楼层
这里该With Sheets("银付")
        arr = .Range("f2:h" & .Cells(Rows.Count, 6).End(xlUp).Row)
    End With

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-3-5 22:38 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
好了,看看吧

怎么只提1个数据.rar

15.02 KB, 下载次数: 6

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-3-5 22:43 | 显示全部楼层
修改以下语句即可:
With Sheets("银付")
     'arr = .Range("f2:h" & .Cells(Rows.Count, 2).End(xlUp).Row)
     arr = .Range("f2:h" & .Cells(.Rows.Count, 6).End(xlUp).Row)
   
With Sheets("2月")
     'brr = .Range("A4:an" & .Cells(Rows.Count, 3).End(xlUp).Row)
      brr = .Range("A4:aO" & .Cells(.Rows.Count, 3).End(xlUp).Row)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-3-5 22:59 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

谢谢!太干净了!1字漏改忙活半天。你帮我解决了。谢谢

TA的精华主题

TA的得分主题

发表于 2023-3-5 23:08 | 显示全部楼层
xing_chen 发表于 2023-3-5 22:59
谢谢!太干净了!1字漏改忙活半天。你帮我解决了。谢谢

不客气,好像以前就帮你解决过问题。你这问题挺多的。看来是学进去了。但是为什么这个小错误没有看到呢?

TA的精华主题

TA的得分主题

发表于 2023-3-6 10:19 | 显示全部楼层
xing_chen 发表于 2023-3-5 22:59
谢谢!太干净了!1字漏改忙活半天。你帮我解决了。谢谢

你要学会调试代码,你按F8可以一步一步调试,哪里通不过,改一下哪里,这样容易解决问题。
很多时候,还是要自己去解决的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-3-6 10:24 | 显示全部楼层
ykcbf1100 发表于 2023-3-6 10:19
你要学会调试代码,你按F8可以一步一步调试,哪里通不过,改一下哪里,这样容易解决问题。
很多时候,还 ...

谢谢老师!

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-3-6 10:24 | 显示全部楼层
cjc209 发表于 2023-3-5 22:16
这里该With Sheets("银付")
        arr = .Range("f2:h" & .Cells(Rows.Count, 6).End(xlUp).Row)
    E ...

谢谢老师!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-9-30 06:26 , Processed in 0.042812 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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