Excel VBA代码中存在错误

我想将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

---

请帮助….

将列复制到行中不起作用………行太小

发生了什么错误？错误发生在哪里？您是否尝试在单步模式下单步执行代码以找出错误发生的原因？错误代码1004-“我们无法粘贴，因为副本和粘贴区域的大小不同”。我没有递增，同一行被无限次复制..我假定，当

i

等于

2

时，即您的复制代码第一次运行时，会出现此错误！？对第二列是第2页中的无限次粘贴，不能将整列复制到第1行以外的任何位置。