为什么我不能 copy （excel vba)？？

来源: 于 2008-10-03 02:38:41 [旧帖] [给我悄悄话] 本文已被阅读：次

一个简单的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