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
8X82008-10-03 16:38:43
When you copied, you copied entire row. Why
Heterochrony2008-10-03 17:21:24
回复:为什么我不能 copy (excel vba)??
lovchina2008-10-03 21:27:00
谢谢!!
笑闹江湖2008-10-04 00:56:55
最省事的办法:先录制一段COPY/PASTE的MACRO,然后编辑,加入循环。