复制后粘贴N次

Nsp=娜！再来#

复制A2:G11后，粘贴5次到下一个单元格，请简化代码，谢谢
复制后粘贴N次.zip (16.92 KB, 下载次数: 27)

2018-4-16 20:05 上传

点击文件名下载附件

liulang0808

1. Sub aaa()
   
2. For j = 1 To 5
   
3.     [a2:g11].Copy Cells((j - 1) * 10 + 12, 1)
   
4. Next j
   
5. End Sub

复制代码

ww87725244

1. Sub aa()
   
2. Dim arr, i&
   
3. With Sheet1
   
4.     arr = .[a2].Resize(10, 7)
   
5.     For i = 1 To 4
   
6.         .Cells(i * 10 + 2, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
   
7.     Next
   
8. End With
   
9. End Sub

复制代码

Nsp=娜！再来#

liulang0808 发表于 2018-4-16 20:15

谢谢老师！

Nsp=娜！再来#

ww87725244 发表于 2018-4-16 20:24

谢谢老师！

abc123281

Sub 宏1()
Dim rng As Range
With Worksheets("sheet1")
Set rng = .[a2:g11]
For i = 12 To 60 Step 10
   rng.Copy .Range("a" & i)
Next
End With
End Sub

abc123281

复制后粘贴N次123.rar (16.54 KB, 下载次数: 31)

2018-4-16 20:36 上传

点击文件名下载附件

Nsp=娜！再来#

abc123281 发表于 2018-4-16 20:37

谢谢老师的帮助

Nsp=娜！再来#

abc123281 发表于 2018-4-16 20:37

老师，请解释一下For i = 12 To 60 Step 10的意思，谢谢

陌嘟嘟excel

借楼问下，一个工作薄中有多个工作表要同时操作，每个工作表中有数据的行数不同，怎么弄呢