请教老师：如何点一次按钮，向下复制一行数据？

zainan0810 · 发表于 2018-5-4 21:57

本帖最后由 zainan0810 于 2018-5-5 09:56 编辑

请教各位老师:
第1步：在"原始数据"表A列,随意选中一个日期,然后按一下"按顺序复制"按钮,将这个选中日期及它右边三个数据复制到B2:E2中。
第2步：再按一次"按顺序复制"按钮，第1步选中日期的下面日期变成选中日期，将这个选中日期及它右边三个数据复制到B2:E2中。
第3步：再按一次"按顺序复制"按钮，第2步选中日期的下面日期变成选中日期，将这个选中日期及它右边三个数据复制到B2:E2中。
以此类推。

向下连续复制数据.rar (52.97 KB, 下载次数: 12)

zainan0810 · 发表于 2018-5-5 07:50

自己顶下吧，等待老师解惑！

朱荣兴 · 发表于 2018-5-5 09:24

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

zainan0810 · 发表于 2018-5-5 09:56

朱荣兴发表于 2018-5-5 09:24
参考
Sub 按钮1_Click()
Application.ScreenUpdating = False

谢谢朱荣兴老师的指点，让您费心啦！写的太好了，完全正确！

ylf969 · 发表于 2024-8-8 18:03

代码怎么不见了

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-5-5 09:24 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[已解决] 请教老师：如何点一次按钮，向下复制一行数据？