为什么我不能 copy （excel vba)？？ lovchina2008-10-03 10: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

When you copied, you copied entire row. Why

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

谢谢！！

最省事的办法：先录制一段COPY/PASTE的MACRO，然后编辑，加入循环。