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

一個問題是您無法確定目標范圍與您選擇的范圍大小相同。 您可能想要圍繞它編寫代碼。 但是，在不知道更多細節的情況下，我無法猜測您想要如何做到這一點。