Excel VBA代码中的错误

Question

我想将Excel工作表的某些列复制到另一个工作表。

我编写的代码不起作用。它进入无限循环，并以错误退出。代码是：

Sub customCopy()

Dim i As Integer
Dim j As Integer


j = 1
For i = 1 To 700
   If i Mod 5 = 2 Then
       Columns(i).Copy Destination:=Sheets(2).Rows(j)
       j = j + 1
   End If
   If i Mod 5 = 3 Then
       Columns(i).Copy Destination:=Sheets(2).Rows(j)
       j = j + 1
   End If
   If i Mod 5 = 4 Then
       Columns(i).Copy Destination:=Sheets(2).Rows(j)
       j = j + 1
   End If
Next i

End Sub

请帮助..

Answer 1

将列复制到行中将无效............. 行太小了！