我试图复制和粘贴一系列单元格。我有单元格D1:D10,需要复制D1并粘贴A1:A20,然后移至D2并粘贴至A21:A40,依此类推。我已经通过A1:A20成功获得了D1。我不知道如何让它移动到下一个单元格。 (“CountofResponses”)等于20.Excel VBA复制和粘贴循环
Private Sub CommandButton1_Click()
Dim i As Integer
Range("D1").Select
Selection.Copy
For i = 1 To Range("CountofResponses")
Range("A" & 1 + i).Select
ActiveSheet.Paste
Next i
End Sub