一个简单的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
为什么我不能 copy (excel vba)??
所有跟帖:
•
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