excel vba range property non смежные диапазоны

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 д. Вы, вероятно, захотите закодировать вещи вокруг этого. Не зная больше деталей, я не могу догадаться, как вы хотели бы это сделать.