Тащить формулу до определенной ячейки vba excel

У меня есть этот лист excel:

introducir la descripción de la imagen aquí

Посредством макроса, я хочу тащить формулу I2 до последней линии, которая содержит данные о колонне A (Реестр). Так, в этом случае он был бы до линии 15. Проблема состоит в том, что эта колонна не будет быть заполненной всегда до линии 15, а следовательно он был бы должен подтверждать сначала, до тех пор, пока эта заполненная линия и после тащить формулу I2 до этой линии, и я не умею делать это.

Макрос, который я считаю сделанным, - следующий:

    Sub Notaexamen_6ejercicios()
'
' Notaexamen_6ejercicios Macro
'

'
    ActiveWindow.LargeScroll ToRight:=-1
    Range("I2").Select
    ActiveCell.FormulaR1C1 = _
        "=RC[-6]*R10C[4]+RC[-5]*R10C[5]+RC[-4]*R10C[6]+RC[-3]*R10C[7]+RC[-2]*R10C[8]+RC[-1]*R10C[9]"
    Range("I2").Select
    Selection.AutoFill Destination:=Range("I2:I15"), Type:=xlFillDefault
    Range("I2:I15").Select
    Range("M18").Select
End Sub

Как он был бы должен издавать ее?

Спасибо

1
задан 14.05.2017, 21:01
1 ответ

Который никто не унес в engaГ±o, простые lГ-neas удаляют полностью любую необходимость создавать mГЎs cГіdigo того, который появляется в этом ответе.

Эти lГ-neas обнаруживают Гєltima линию, выбирают ранг, который нужно копировать, и копируют она fГіrmula с, в этом случае, Ячейке I2. Не получаем три в одном без циклов for ни , ни while ни ни if .

Сделай copy/paste такого примера, каков и ejecГєtalo в твоем листе имея в виду, что только necesitarГЎs одно из решений.

Sub Notaexamen_6ejercicios()

    'Hasta la primera celda en blanco
    Range("I2", "I" & Range("A2").End(xlDown).Row) = Range("I2").Formula

    'Hasta la última celda escrita
    Range("I2", "I" & Cells(Rows.Count, 1).End(xlUp).Row) = Range("I2").Formula

End Sub

ВЎOjo!, никогда не включай их в

Лиши тебя Суб Ворксеет_чанхе ()

, так как это стрелок превосходных событий и harГ, - чтобы вводить в цикл Excel

0
ответ дан 24.11.2019, 09:15