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