复制第n1行到第2行从第x1行到第x2行（表单1），然后在每粘贴第n行数据后，将第n2行复制到第2行

我有一个excel文件，在sheet1中有2000行和50列。 我需要复制并粘贴到同一个工作簿中的sheet1的第3行到第900行每隔一行。 然后，从前面粘贴的行之后的第1行的第901行到第2000行的第6行到第2行。 我对VBA很新颖。 任何人都可以请帮我写这个macros…

试：

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