為什麽我不能 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- ♀ (27 bytes) () 10/03/2008 postreply 08:38:43

• 回複：為什麽我不能 copy （excel vba)？？ -Heterochrony- ♂ (355 bytes) () 10/03/2008 postreply 09:21:24

• 謝謝！！ -lovchina- ♀ (0 bytes) () 10/03/2008 postreply 13:27:00

• 最省事的辦法：先錄製一段COPY/PASTE的MACRO，然後編輯，加入循環。 -笑鬧江湖- ♂ (0 bytes) () 10/03/2008 postreply 16:56:55