Vba 宏代码，用于复制单元格并将其粘贴到下两个单元格

试着写一个宏来复制一个单元格并粘贴到接下来的三个单元格。然后复制第五个单元格并粘贴到第六、第七和第八行。我有很多行中的数据需要用这种方式进行复制粘贴。到目前为止，我有类似的事情

    Sub copycell()
    for i= 1 to 1000

    Cells(1, i).Select
    Selection.copy
    Cells(1,i+1).Select 
    Selection.Paste      
    end if 
    End sub   
    next i

试一试

或者干脆

Sub copycell()
    For i = 1 To 100 Step 4
        Range(Cells(1, i + 1), Cells(1, i + 3)).Value = Cells(1, i).Value
    Next i
End Sub

步骤

关键字用于为循环的计数器变量指定不同的增量<代码>步骤更改用于递增计数器的值。在这种情况下，

i

将增加4，即从

1到5，然后到
9，然后到
13，依此类推

上面的代码将复制右边一行中的单元格。

如果您想复制列中的单元格，则可以使用以下代码

Sub copycell()
    For i = 1 To 100 Step 4
        Range(Cells(i + 1, 1), Cells(i + 3, 1)) = Cells(i, 1)
    Next i
End Sub

在这里，每个循环之间有4个步骤，以便从第一个单元移动到第五个单元

Sub copycell()
for i= 1 to 1000 step 4
Cells(1,i+1) = Cells(1, i)
Cells(1,i+2) = Cells(1, i) 
Cells(1,i+3) = Cells(1, i)      
next i
End sub   

Sub copycell()
for i= 1 to 1000 step 4
Cells(1,i+1) = Cells(1, i)
Cells(1,i+2) = Cells(1, i) 
Cells(1,i+3) = Cells(1, i)      
next i
End sub