excel vba范围属性非连续范围

Question

我只想填充包含Sum(E1:E4)的原始单元格的不同非连续范围。这是代码（不起作用，只是为了让想法更清晰）：

 Selection.AutoFill Destination:=Range("K1:K4", "O1:O5", "Q1:Q5"), Type:=xlFillDefault

Answer 1

如果您要以某种方式定义范围，无论是编程还是硬编码，您都可以将其转换为子例程，如下所示：

Sub FillRange(Range rng)
    Selection.AutoFill Destination:=Range(rng), Type:=xlFillDefault
End Sub

然后你可以打电话给它：

FillRange("K1:K4")
FillRange("O1:O4")
FillRange("Q1:Q4")

此问题的一个问题是您无法确定目标范围是否与您选择的范围相同。你可能想要围绕它编写代码。在不知道更多具体细节的情况下，我无法猜测你想怎么做。