跪求EXCEL VBA 循环粘贴 代码

来源：百度知道 编辑：UC知道 时间：2024/06/21 16:26:01
在EXCELE工作表中A1:C3复制一段内容，然后想每隔22行粘贴一次，间隔数是以A1所在行为起点，需要粘贴1000次，用VBA怎么实现。哪位高手请给我个详细的代码，谢谢了。在线等。

Sub Okexcel()
Dim sr As Range
Dim dr As Range
Dim l As Long
Dim ws As Worksheet
Set ws = Worksheets("智能Excel")
Set sr = ws.Range("A1:C3")
Set dr = sr.Offset(25, 0)
For l = 1 To 1000
sr.Copy dr
Set dr = dr.Offset(25, 0)
Next
Set sr = Nothing
Set dr = Nothing
Set ws = Nothing
End Sub
到智能EXCEL学VBA

1楼需要用宏么？只需要在将第一行数据COPY到第23行，选择a1到c45，拖拉操作就行了！就是需要宏，你的宏写的也是有问题啊！
dim l as long
l = 1
Range(Cells(1, 1), Cells(1, 3)).Copy
For l = 1 To 1000
Range(Cells(l * 22 + 1, 1), Cells(l * 22 + 1, 3)).Select
ActiveSheet.Paste
Next

Sub test()
Dim rng As Range, rn As Range, rgg As Range
Dim i As Integer, j As Integer
Set rng = Range("a1:c3")
j = 1
i = 1
Do Until i > 1000
i = i + 1
j = j + 23 '中间隔