[已解决]可以再帮忙修改下吗？！如何把一个表的某几行复制到另一个表？

fffox

呠呠车 发表于 2013-12-27 11:11
有的。但还是显示要调试

上传附件

呠呠车

fffox 发表于 2013-12-27 11:20
上传附件

上传了！

fffox

呠呠车 发表于 2013-12-27 11:36
上传了！

经过测试，没有问题。
再次改了一下，复制过去的空行不再保留

1. Sub t()
   
2.     Dim i%,  endRow%
   
3.     Dim sh As Worksheet
   
4.     Set sh = Sheets("sheet2")
   
5.     endRow = Sheets("成品入仓单").Cells(Rows.Count, 1).End(3).Row
   
6.     For i = 9 To endRow Step 15
   
7.         Sheets("成品入仓单").Rows(i “&：”& i+5).Copy
   
8.         sh.Cells(rows.count, 1).end(3).offset(1).PasteSpecial Paste:=xlPasteValues
   
9.     Next
   
10.     set sh=nothing
    
11. End Sub
    

复制代码

呠呠车

fffox 发表于 2013-12-27 12:03
经过测试，没有问题。
再次改了一下，复制过去的空行不再保留

可以回发吗？我也不知道我错哪了。。把你代码复制过去后。那句话还是提示语法错误。

fffox

呠呠车 发表于 2013-12-27 12:45
可以回发吗？我也不知道我错哪了。。把你代码复制过去后。那句话还是提示语法错误。

上传了

呠呠车

fffox 发表于 2013-12-27 12:03
经过测试，没有问题。
再次改了一下，复制过去的空行不再保留

大师好棒！{:06:}

我重新试了可以了！可能刚才有点不稳定。

非常非常感谢！！{:18:}

fffox

好了？给最佳吧

呠呠车

fffox 发表于 2013-12-27 13:49
好了？给最佳吧

肯定的！！我还想去你那留言呢，但是现在还没有权限。。

还是那些话，{:091:}非常感谢你！谢谢你耐心的帮忙！向你学习！

呠呠车

fffox 发表于 2013-12-27 13:49
好了？给最佳吧

如果我相隔的行数变动了。。例如本来相隔15行。现要相隔16行。

那是不是把代码For i = 9 To endRow Step 15改成For i = 9 To endRow Step 15就好了？

但我改了以后就运行有误了。它变成只复制了最后的那份。

这些代码改动的时候要注意什么么？

fffox

呠呠车 发表于 2013-12-27 19:35
如果我相隔的行数变动了。。例如本来相隔15行。现要相隔16行。

那是不是把代码For i = 9 To endRow St ...

你从间隔15行变成间隔16行，那么，FOR循环的步长也应该变为16，即Step 16