请教一个简单的复制粘贴功能

jhzlll · 发表于 2023-1-3 10:56

需求很简答，就是根据单元格的数字，复制5到10行，并按这个次数向下粘贴就行。

主要是对循环语句不是很懂，自己搞的这个，能实现粘贴次数，但不知道为什么同时被插入了很多行。

Sub 宏1()
Rows("5:10").Copy
For i = 11 To 20 这里指定单元格不会写
Range("A" & i * 6).PasteSpecial xlPasteAll
Next

请教各位老师、朋友帮助，谢谢！

1.zip (7.07 KB, 下载次数: 4)

liulang0808 · 发表于 2023-1-3 12:23

。。。。。。。。。。。

3190496160 · 发表于 2023-1-3 12:47

Sub 宏1()
m = [h1]
x = 11
For i = 1 To m
Rows("5:10").Copy Cells(x, 1)
x = x + 6
Next i
End Sub

3190496160 · 发表于 2023-1-3 12:48

1.rar (14.32 KB, 下载次数: 3)

Learner2022 · 发表于 2023-1-3 13:34

Private Sub Copy()
Dim C%, i%, R%
C = Range("H1").Value
For i = 1 To C
R = 5 + 6 * i
Range("A5:J10").Copy Range("A" & R)
Next
End Sub

复制代码

很想知道这个代码的事件宏怎么写，就是让粘贴的区域随着H1单元格数值变化而变化

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

[求助] 请教一个简单的复制粘贴功能