为什么我不能 copy (excel vba)??

一个简单的copy就是不能执行,请教高手,谢谢!!


Sub test()

Dim i As Integer

Worksheets(1).Activate

For i = 1 To 20

If Int(Cells(i, 1)) = Cells(i, 1).Value Then

Cells(i, 1).EntireRow.Copy

Worksheets(2).Range(i, 1).Paste '(问题在这里)

End If

Next

End Sub

所有跟帖: 

When you copied, you copied entire row. Why -8X8- 给 8X8 发送悄悄话 8X8 的博客首页 (27 bytes) () 10/03/2008 postreply 08:38:43

回复:为什么我不能 copy (excel vba)?? -Heterochrony- 给 Heterochrony 发送悄悄话 (355 bytes) () 10/03/2008 postreply 09:21:24

谢谢!! -lovchina- 给 lovchina 发送悄悄话 (0 bytes) () 10/03/2008 postreply 13:27:00

最省事的办法:先录制一段COPY/PASTE的MACRO,然后编辑,加入循环。 -笑闹江湖- 给 笑闹江湖 发送悄悄话 (0 bytes) () 10/03/2008 postreply 16:56:55

请您先登陆,再发跟帖!