ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 如何用vab快速选中数值区域

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-12-11 09:57 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 hymjtc 于 2024-12-11 13:22 编辑

我在ABC三列输入相应信息,E列到T列因为做了公式,会自动填充相应信息,现在我需要选中从E3到T列最后一行区域进行复制,可是,我用vba在没有数据的里面因为有公式,会全部选中,有没有办法只选择我需要的带数值的,公式中空白区域除外,希望大师帮我一下,谢谢
捕获.JPG

出库模板(公式).zip

19.68 KB, 下载次数: 1

TA的精华主题

TA的得分主题

发表于 2024-12-11 14:27 | 显示全部楼层
hymjtc 发表于 2024-12-11 14:20
复制完之后,粘贴到另一个工作表里,不在这个上面,在这个表上只要能选中相应的区域进行复制就可以了,我 ...

点复制按钮后,数据区就复制了,你到另一个表中粘贴即可。

出库模板(公式).zip

26.95 KB, 下载次数: 8

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-12-11 10:03 | 显示全部楼层
用Cells(Rows.Count, 2).End(xlUp).Row计算最后一行,没问题

TA的精华主题

TA的得分主题

发表于 2024-12-11 10:04 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-12-11 11:08 | 显示全部楼层
Sheet1.UsedRange.Rows.Count获取使用的行数;Sheet1.UsedRange.Columns.Count获取使用的列数;用resize(行数,列数)来生成一个区域对象,然后select就可以选中你想要的区域了。选多就就减一些,调整好就可以了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-12-11 12:43 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-12-11 12:45 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-12-11 12:45 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
usedrange 发表于 2024-12-11 11:08
Sheet1.UsedRange.Rows.Count获取使用的行数;Sheet1.UsedRange.Columns.Count获取使用的列数;用resize( ...

能帮我写一下完整代码吗,我对vba还有些不太懂。麻烦了

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-12-11 12:48 | 显示全部楼层
ykcbf1100 发表于 2024-12-11 12:45
复制仅数值粘贴就行了吧

粘贴是这样,我是想通过一键复制,因为数据会有很多,手动选取有些麻烦,如果vba一键选择并复制,就方便多了,老师能帮我写一下代码吗,谢谢

TA的精华主题

TA的得分主题

发表于 2024-12-11 13:13 | 显示全部楼层
hymjtc 发表于 2024-12-11 12:48
粘贴是这样,我是想通过一键复制,因为数据会有很多,手动选取有些麻烦,如果vba一键选择并复制,就方便 ...

你都没附件还让人写代码。

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-12-11 13:23 | 显示全部楼层
ykcbf1100 发表于 2024-12-11 13:13
你都没附件还让人写代码。

老师提醒的对,是我疏忽了,您受累给看看可以吗

出库模板(公式).zip

19.68 KB, 下载次数: 1

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

本版积分规则

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

GMT+8, 2024-12-25 15:23 , Processed in 0.046594 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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