복사 n1 번째 행부터 x2 번째 행 (시트 1)까지 복사 한 다음 매 n 번째 행마다 매 x2 번째 행을 복사합니다.

Question

sheet1에 2000 행과 50 열의 Excel 파일이 있습니다. . 동일한 통합 문서에서 3 행부터 900 행까지 다른 모든 행을 복사하여 붙여 넣기해야합니다. 그리고 나서 901 행부터 2000 행까지 매 6 행마다 이전에 붙여 넣은 행 바로 다음에 sheet1에서 sheet2로 이동합니다. 나는 VBA를 처음 접했습니다.

Dim strValue As String 
    Dim strCellNum As String 
    Dim x As String 
    x = 1 
    For i = 1 To 700 Step 7 
    strCellNum = "A" & i 
    strValue = Worksheets("Sheet1").Range(strCellNum).Value 
    Debug.Print strValue 
    Worksheets("Sheet2").Range("A" & x).Value = strValue 
    x = x + 1 
    Next 

Answer 1

Sub CopyNew() 
    Dim NextDest As Long 
    Dim CurRow As Long 

    NextDest = 1 

    For CurRow = 3 To 900 Step 2 
     Sheets("Sheet1").Rows(CurRow).Copy 
     Sheets("Sheet2").Range("A" & NextDest).PasteSpecial 
     NextDest = NextDest + 1 
    Next CurRow 
    For CurRow = 901 To 2000 Step 6 
     Sheets("Sheet1").Rows(CurRow).Copy 
     Sheets("Sheet2").Range("A" & NextDest).PasteSpecial 
     NextDest = NextDest + 1 
    Next CurRow 

End Sub