帮忙编写个表内跳转程序

梵蒂冈2022 · 发表于 2023-7-26 08:07

见下图，共计有1238行，经常对数据进行筛选，每次结束后，全部要从头拉到最后空格的地方在后面添加数据，比较麻烦
想在下图红圈的地方做个跳转，调到数据的最后一行，麻烦编写个程序，谢谢

fanyoulin · 发表于 2023-7-26 08:23

大概就是：cells(cells(rows.count,4).end(3).row,4).select

3190496160 · 发表于 2023-7-26 08:23

附件呢？没有附件，没人能帮得了你的

梵蒂冈2022 · 发表于 2023-7-26 08:27

本帖最后由梵蒂冈2022 于 2023-7-26 08:29 编辑

附件是样式，程序做完后，我可以自己修改代码

WANT-T · 发表于 2023-7-26 09:42

梵蒂冈2022 发表于 2023-7-26 08:27
附件是样式，程序做完后，我可以自己修改代码

给你个小工具，N年前做的！

TO_FISH.rar (16.13 KB, 下载次数: 9)

leeson7502 · 发表于 2023-7-26 10:13

提示: 作者被禁止或删除内容自动屏蔽

梵蒂冈2022 · 发表于 2023-7-26 10:21

leeson7502 发表于 2023-7-26 10:13
这用得着程序？，ctrl+shift+下箭头啊

没啥用啊........

yynrzwh · 发表于 2023-7-26 10:28

本帖最后由 yynrzwh 于 2023-7-26 10:30 编辑

Range("A1").End(xlDown).Offset(1, 0).Select
或者选择任一单元格，按着End键不放，接着按向下箭头

cyq4896 · 发表于 2023-7-26 10:33

请试一试...

一掷乾坤 · 发表于 2023-7-26 11:08

ctrl+下箭头就好了

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

[求助] 帮忙编写个表内跳转程序

leeson7502 leeson7502 当前离线性别保密 UID 66230 阅读权限 0 注册时间 2005-2-19 在线时间小时最后登录 1970-1-1 积分 446 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2023-7-26 10:13 \| 显示全部楼层 [广告] ★ 造就Excel高手的神器，远胜VBA/Python ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报