[已解决]隔行复制

陈丹青

Sub InsertXM()
LastRow = Range("B65536").End(xlUp).Rows
For i = 2 To LastRow Step -2        '从第二行开始，步长为2
    Rows(1).Copy Cells(i, 1)
Next
End Sub
我将第一行内容，从第二行开始，每隔两行复制，用上面的代码不知为什么不行，将Cells(i, 1)换成Rows(i)也不行

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-24 10:03

LastRow = Range("B65536").End(xlUp).Rows
这句应该是
LastRow = Range("B65536").End(xlUp).Row

跳转到最佳答案楼层

E路人

For i =  LastRow To  2 Step -2  

fffox

你的步长设置不对。step -2，步长是-2，循环应该从大到小，但你的循环却是从小到大的，所以步长应该是2，即step 2

陈丹青

步长改成了2还是不行

陈丹青

fffox 发表于 2013-12-24 08:46
你的步长设置不对。step -2，步长是-2，循环应该从大到小，但你的循环却是从小到大的，所以步长应该是2，即 ...

步长改成了2也还是不行

E路人

陈丹青 发表于 2013-12-24 09:15
步长改成了2也还是不行

Sub aa()
LastRow = Range("B65536").End(xlUp).Rows
For i = 2 To LastRow Step 2        '从第二行开始，步长为2
    Rows(1).Copy Cells(i, 1)
Next
End Sub
  隔行粘贴第一行可以     For i =  LastRow to 2 Step -2 也行

陈丹青

E路人 发表于 2013-12-24 09:23
Sub aa()
LastRow = Range("B65536").End(xlUp).Rows
For i = 2 To LastRow Step 2        '从第二行开 ...

不知为何，改了还是不行，顺序倒序都不行，执行起来没有反应

陈丹青

附件上了，代码在模块1，帮我看看什么原因

yyyydddd8888

是不是要这样的效果？
成绩条生成器.rar (51.08 KB, 下载次数: 7)

2013-12-24 09:58 上传

点击文件名下载附件

1. Sub InsertXM()
   
2. LastRow = Range("B65536").End(xlUp).Row
   
3. For i = LastRow To 2 Step -4         '从第三行开始，步长为1
   
4.     Rows(1).Copy Cells(i - 1, 1)
   
5. Next
   
6. End Sub
   

复制代码

yyyydddd8888

LastRow = Range("B65536").End(xlUp).Rows
这句应该是
LastRow = Range("B65536").End(xlUp).Row