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