VBA中的循环代码

Question

注意：我能够上传评论中图片的链接。

我在一个excel宏中使用for循环尝试编译数据。

我有以下VBA代码：

Sub MoveData() 
' 
' MoveData Macro 
' 

' 
Dim rng As Range 
Set rng = Macro.Application.Range("R1:X1000") 
With rng 


    For i = 1 To 200 
     a = 5 * i 
     b = i + 1 

     Range(a, 18).Select 
     Selection.Copy 
     Range(b, 3).Select 
     ActiveSheet.Paste 

    Next i 

End With 

End Sub 

我收到以下错误信息： 运行时错误 '424'：

对象所需

任何澄清将不胜感激！我已经沉迷了很长一段时间了！

Answer 1

试试这个，并确保你的值在activesheet。

Sub MoveData() 

    Dim rng As Range 

    Set rng = ActiveSheet.Range("R1:X1000") 

    With rng 
     For i = 1 To 200 
      a = 5 * i 
      b = i + 1 

      Debug.Print "copying from =>" & .Cells(b, 3).Address 
      Debug.Print "copyting to =>" & .Cells(a, 18).Address 

      Stop 'and take a look at the immediate window 
      ' what is there? 

      .Cells(b, 3) = .Cells(a, 18) 
     Next i 
    End With 

End Sub