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

来源: Heterochrony 于 2008-10-03 09:21:24 [] [旧帖] [给我悄悄话] 阅读数 : (355 bytes)

应该是paste的目标区选取不正确. 做了如下改动,

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).Select

Worksheets(2).Rows(i).Select

Worksheets(2).Paste

End If

Next

End Sub

所有跟帖： 

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

请您先登陆，再发跟帖！