VBA 的复制指定行，新人求助

liulang0808

附件内容供参考，日期部分自行处理吧

exc-led

xiangbaoan 发表于 2018-9-27 06:17
……………………

谢谢大神，就是你这样的，但是您这个太快了，我的意思是每按一次您给的按钮，就复制过去（10行），不要一下子复制完，都看不清大神的速度了。再次谢谢大神能否修改一下？

exc-led

shi353 发表于 2018-9-27 05:30
提問人應該是想作模板套印吧，每10筆資料塞入一張表，每張表的序號為累積號
例如  第2張表序號由11開始

是的，大神，就是你这样，模块套印出来。序号不需要累加，但每按一次按钮，就从sheet2中复制10行过来。直到复制完

exc-led

liulang0808 发表于 2018-9-27 07:01

版主，为什么需要ClearContents？  我不是很懂，是速度太快了嘛？没有看到文字就结束了，能否每按一次按钮执行一次程序（每次按按钮复制10行）

exc-led

liulang0808 发表于 2018-9-27 07:01

另外辛苦版主大大的凌驾，谢谢

liulang0808

exc-led 发表于 2018-9-27 08:42
版主，为什么需要ClearContents？  我不是很懂，是速度太快了嘛？没有看到文字就结束了，能否每按一次按 ...

每次都需要清空数据区域，目前的代码方式也可以不清空，因为现在是每次10行拷贝
另外是连续打印，楼主连接打印机就能看出来差别了

xiangbaoan

exc-led 发表于 2018-9-27 08:35
谢谢大神，就是你这样的，但是您这个太快了，我的意思是每按一次您给的按钮，就复制过去（10行），不要一 ...

……仅测试……

exc-led

liulang0808 发表于 2018-9-27 08:45
每次都需要清空数据区域，目前的代码方式也可以不清空，因为现在是每次10行拷贝
另外是连续打印，楼主连 ...

万分感谢给我的解答，可惜我已经没有分可以给你了，下次给您补上

exc-led

xiangbaoan 发表于 2018-9-27 08:52
……仅测试……

大神的代码很简洁，看的比较明白

exc-led

xiangbaoan 发表于 2018-9-27 08:52
……仅测试……

您帮我看看，我如何加一个FOR 循环？让这段代码每隔一段时间执行一次？您看看可以不？Public r&, k&Sub test()
Dim ar
If 模块1.k = 0 Then 模块1.r = 2
ar = Sheet2.Cells(模块1.r, 1).Resize(10, 11)
Sheet1.[i3] = ar(1, 10)
Sheet1.[f3] = ar(1, 11)
Sheet1.[b5].Resize(10, 9) = ar
模块1.k = 模块1.k + 1
模块1.r = 模块1.r + 10
MsgBox "ok!  第 " & 模块1.k & " 次。"
       'Worksheets("固定资产卡").PrintOut
       Application.OnTime Now + TimeValue("00:00:01"), "test"  '这里能否加每隔一段时间执行一次？

End Sub