首页 > 解决方案 > 将以下代码从 x 循环到 y 以 1 的整数步进

问题描述

Sheets("SITE Model").Select
    Range("C8").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("C9").Select
    Sheets("NETWORK Model").Select
    Range("D37").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("D27").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

我想分别通过单元格引用 C8 和 C9 指定 x 和 y。任何帮助,将不胜感激!

附上更新的照片,使积累更清晰。第一部分是来自“SITE Model”的输入。第二部分是累积粘贴值。第三部分总计 1 和 2,然后将新答案作为值粘贴到第 2 部分中。

标签: excelvbaloops

解决方案


推荐阅读