在循环中复制值

时间:2014-06-15 21:14:45

标签: excel vba

在项目上工作时,我在使用循环复制值时遇到了一些问题。我试图尽可能清楚地在这里描述这个问题。

- 应该做什么,是针对每个i(1到83)以及整个时期(即1/1 / 2014-15 / 1/2014)的值是否相互复制在计算表上。 - 到目前为止发生的事情是它复制了值但是覆盖了除了第一个之外的所有日子,除了最后一个之外的所有日子。

因此,宏完成后的结果是:i1的2014年1月1日,i2的1/1/2014,直到i83的1/1 / 2014-15 / 1/2014。 结果应该是i1,1/1 / 2014-15 / 1/2014的1/1 / 2014-15 / 1/2014,i2 [...]直到1/1 / 2014-15 / 1/2014对于i83。

听起来神秘而且不清楚,但是如果这里的代码能够让它更加清晰。

Sheets("Summary").Select

For i = 1 To 83
    Sheets("Summary").Select
    Sheets("Summary").Range("A10").Value = Sheets("Summary").Cells(i + 10, 1).Value
    Sheets("Calculation").Select
    Sheets("Calculation").Range(Cells(i + 17, 1), Cells(i + 31, 59)).Value = Sheets("Calculation").Range("a2:bg16").Value
    Next i


Range("a1").Select


End Sub

我期待您的建议,如果有任何不明确的地方请告诉我

瓦伦蒂诺

1 个答案:

答案 0 :(得分:0)

的问题?您是否对15个日期(行中的每一个)中的83个项目(在83列中)进行了观察,或者对15列中的日期进行了83行观察?

Worksheets("Summary").Range("A10:CF24").Copy Destination:=Worksheets("Calculation").Range("A10").Offset(17)