Excel 2010 复制和粘贴宏

Question

我需要一些帮助来创建宏。我需要它做的是将工作表Dont Use 上的E1:E10 中的值复制到工作表Weekly Schedule 上D 列中的每个第6 个单元格，从D10 开始。我在D 列中的每个单元格只需要一个值，所以E1 转到D10、E2-->D16...等。我需要为工作表Dont use 的单元格A1 中列出的数字复制此副本。

我使用下面的代码将表单的布局复制到单元格A1 中列出的数量。我想知道是否有办法修改此代码以完成我所需要的。

    Sub Copy()
    Dim X As Long
    X = 0
    Do Until X = Sheets("Dont Use").Range("A1")
    Rows("3:8").CopyDestination:=Sheets("WeeklySchedule").Rows("65536").End(xlUp).Offset(1, 0)
    X = X + 1
    Loop
    End Sub

Answer 1

试试这个代码

Sub macro()
For i = 0 To 9
Var = Sheets("Dont Use").Cells(i + 1, 5).Value
Sheets("WeeklySchedule").Cells(10 + (i * 6), 4).Value = Var
Next
End Sub