Ran時にVBAコードが機能しない？

Question

私は情報の領域をコピーし、値を貼り付けようとしています。 forループの最後で特定のセルの値を変更することによって、その周りの領域にある情報も変更します。したがって、私はこの462回のループを繰り返し、別のワークシート上の各領域を特別に貼り付けようとしており、各領域は以前に貼り付けられた行（行2から始まる）よりも下の行に貼り付けられます。しかし、実際にプログラムを実行すると、絶対に何も起こりません。誰もこれで助けることができますか？

本当にありがとうございました、以下のコードは貼り付けられます：

Sub timeToLoop() 
Dim currentVal As Integer, count As Integer, countStr As String, i As Integer 
count = 1 
    For i = 1 To i = 462 
     count = count + 1 
     countStr = CStr(count) 
     currentVal = Range("V34").Value 
     Worksheets("Query_Tab").Range("V34:BQ34").Copy 
      With Worksheets("Compiled") 
       .Range(.Cells(countStr, "A"), _ 
        .Cells(countStr, "AV")).PasteSpecial xlValues 
      End With 
     Worksheets("Query_Tab").Range("V34").Value = currentVal + 1 
    Next i 
End Sub 

Answer 1

あなたの問題は、Forループであり、それは次のようになります。

For i = 1 To 462 

は、他のマイナーな問題/ヒントがあります。

行/列のカウンターはタイプである

ロング
• countStr
• を使用する必要はありませんがV34のフォーマットに依存します：BQ34は、あなただけの、例えば、Range("V34:BQ34").Copy後に先の範囲を割り当てることができますRange("A1:A10").Copy Range("B1:B10")
• Range（）メソッド内で文字列連結を使用できます。例えばRange("A" & count & ":" & "AV" & count)

Answer 2

あなたは

currentVal =レンジ（ "V34"）の参照を欠落していた。バリュー

が

currentVal =ワークシート（ "Query_Tab" を参照してください）.Range（ "V34"）。値

私はPatrickに同意します。あなたは本当に過度に複雑なことをしています。

Sub timeToLoop() 
    Application.ScreenUpdating = False 

    Dim currentVal As Integer, i As Integer 
    With Worksheets("Query_Tab") 

     For i = 2 To 463 
      currentVal = .Range("V34").Value 

      .Range("V34:BQ34").Copy Worksheets("Compiled").Range("A" & i & ":" & "AV" & i) 

      .Range("V34").Value = currentVal + 1 
     Next i 

    End With 

    Application.ScreenUpdating = True 
End Sub