excel vba范围属性非连续范围

我只想从包含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") 

与此相关的一个问题是，您无法确定目标范围的大小与您select的范围相同。 你可能会想要编码的东西。 不知道更多细节，我不能猜测你想怎么做。