Excel 2010复制和粘贴宏

Question

我需要一些帮助来创建宏。 我需要做的是将工作表“请勿Dont Use E1:E10值复制到工作表Weekly Schedule D列中从D10开始的第6个单元格中。 我在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