매크로 복사 범위를 지정한 시트로 옮긴 후 다음 범위를 반복하십시오.

Question

내 프로젝트에 유용한 코드가 많이 있지만 이제는 코딩에 대한 지식이 부족하여 조금 어려워졌습니다. 그것에 기쁜. 미리 감사드립니다.

내 문제는 내가 x 번 실행되는 루프를 만들어야한다는 것입니다 (범위가 축구 리그이기 때문에 다양합니다). 코드가해야 할 일은 sheet2 (A2 : I13)의 셀을 sheet1 (B2)에 복사 한 다음 나중에 (A14 : I25)로 이동하는 식입니다. 범위는 항상 12 행 9 열 (또는 A : I)입니다. 첫 번째 셀이 비어있을 때까지해야합니다 (이것이 끝입니다).

어려운 문제는 아니지만 13 번째 셀을 검색하는 방법을 모르겠습니다. 당신이 들어/다음 루프를 원하는처럼 당신의 도움에 대한 감사

Answer 1

그것은 소리 같은 :

For rowNumber = 2 to lastRow Step 12 
    ' do whatever needs to be done 
    ' ... 
Next 

아니면 단지 카운터를 사용할 수있는 않지만 루프 같은 :

rowNumber = 2 
Do While Cells(rowNumber, 1).Value <> "" 
    ' do whatever needs to be done 
    ' ... 
    rowNumber = rowNumber + 12 
Loop