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 

请帮忙..

Answer 1

将一个列复制到一行中将不起作用…………. 一行太小！