[已解决]求教循环复制问题

kandhong · 发表于 2017-9-5 14:47

本帖最后由 kandhong 于 2017-9-5 14:50 编辑

代码.jpg

vba求解.rar (5.45 KB, 下载次数: 7)

大灰狼1976 · 发表于 2017-9-5 16:38

i的起点终点自己随便设。
sub 循环复制()
For i = 1 To 4
      n=n+1
      Range("A1") = i
      Application.Run "'试验'!复制" & n
Next
End Sub

kandhong · 发表于 2017-9-5 17:13

本帖最后由 kandhong 于 2017-9-5 17:29 编辑

大灰狼1976 发表于 2017-9-5 16:38
i的起点终点自己随便设。
sub 循环复制()
For i = 1 To 4

大灰狼1976 老师：
您的VBA已收悉，正解！
还有一个问题请教，恳请老师帮我实现如下功能：
具体思路是：当 For i = M To N 时，则执行的命令为：复1、复2、……复(m-n+1)；
举例：
当 For i = 1 To 4 时，则执行的命令为：复1、复2、复3、复4；
当 For i = 3 To 5时，也执行的命令为：复1、复2、复3；
当 For i = 5 To 9 时，则执行的命令为：复1、复2、复3、复4、复5；

大灰狼1976 · 发表于 2017-9-5 17:19

这个最佳答案由大灰狼1976 给出，感谢大灰狼1976 的回答。

单击隐藏图章

我的代码就是基于以上考虑的，你可以试一下，有问题再提出来（带上有问题的附件）。

kandhong · 发表于 2017-9-5 17:31

大灰狼1976 发表于 2017-9-5 17:19
我的代码就是基于以上考虑的，你可以试一下，有问题再提出来（带上有问题的附件）。

老师，我先验证一下，再向您请教！

exc姜 · 发表于 2017-10-18 06:19

学习

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

[已解决]求教循环复制问题

评分