"如何使单元格引用成为变量的函数？"

Question

我将使用相同的宏 24 次，但每次的范围都会有所不同（但以恒定的速率）。 因此，我认为将引用编写为函数以减少代码的长度并使其更容易更改是明智的。

现在看起来像这样：

    Sheets("Planned time").Select
    Range("I15:NJ32").Select
    Selection.Copy
    Sheets("Diff").Select
    Range("I9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Answer 1

您想构建一个字符串表达式，当在 VBA 中求值时，它将是一个有效地址：

Range("I" & cstr(15+171*x) & ":NJ" & cstr(32+171*x)).Select

我假设您知道如何构建 FOR 循环。

您还可以使用数字单元格（行，列）表达式“构建”范围引用：

Range(cell(15+171*x,10),cell(32+171*x,374)).select