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") 

一个这个问题是你不能告诉为确保目标的范围将是大小你有相同的范围内selecte d。你可能会想要编码的东西。尽管不知道更多细节，但我无法猜测你想怎么做。