Excel 2010 VBA Автоматично попълване на цялата колона

Имам проблем да накарам VBA да направи еквивалента на автоматично попълване на цял ред (като например, когато щракнете два пъти върху знака плюс на клетка с формула и тя автоматично попълва подходящия брой колони).

В колона А имам списък с дати. На ред 3 имам списък с формули. Как да напиша макрос, който ефективно ще направи това:

For i = 2 to Columns.Count
    'FillDown the whole of Column i with the formula in Cells(3,i)
Next i

Искам попълването, а не само копие на точната формула... Някой знае ли как може да стане това? Имам метод, който отнема около 20 минути досега, но когато правя този процес ръчно, изобщо не отнема много време, така че мисля, че трябва да има много по-бърз начин.

Благодаря ви много предварително за помощта!


excel vba autofill
person Derek    schedule 25.10.2011    source източник

Отговори (1)


arrow_upward
4
arrow_downward

Можете да опитате да използвате Autofill с целеви диапазон.

Нещо като:

Selection.AutoFill Destination:=Range("A2:A12")

[Редактор:

Range("A1").AutoFill Destination:=Range(Cells(1, firstColNumber), Cells(1, lastColNumber))
person JMax    schedule 25.10.2011
comment
Трябва ли диапазонът да се променя с всяка колона? т.е. ще трябва ли да поставям Range(A2:A12) всеки път или да го актуализирам до Range(B2:B12) и т.н...? Питам, защото имам работа с номера на колони, а не с букви. - person Derek; 25.10.2011
comment
Вариант на това работи добре! За да знаят другите, решението, което използвах, въз основа на този отговор, беше: Cells(3, i).AutoFill Destination:=Range(Cells(3, i), Cells(NumberOfRows, i)) - person Derek; 25.10.2011