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 

다른 사소한 문제/팁이 있습니다. BQ34, 당신은 단지 Range("V34:BQ34").Copy 후 대상 범위를 지정할 수 있습니다, 예를 들면 :

• 행/열 카운터는
• countStr이 V34의 포맷에 따라 다름 사용하는
• 필요가 없습니다 롱 타입 의입니다 Range("A1:A10").Copy Range("B1:B10")
• Range() 메서드 내에서 문자열 연결을 사용할 수 있습니다. 예 :

Answer 2

Range("A" & count & ":" & "AV" & count) 당신은 참조

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