Excel VBA- Динамическая формула, возвращающая нулевое значение для диапазона

Question

Я пытаюсь создать vba формулу для двух диапазонов в одном наборе данных, как входные переменные lastRow и lastRow2. Однако, когда я пытаюсь создать и вычислить формулу, вместо того, чтобы получить значение последней ячейки, я получаю нуль. Оскорблять код ниже:

Dim lastRow As Long 
Dim lastRow2 As Long 
    lastRow = Range("A" & Rows.Count).End(xlUp).Row 
    lastRow2 = Range("M" & Rows.Count).End(xlUp).Row 


... 



    'Calculate ATRT 2014 at cell B4 
    Range("B6").Formula = "=(SUM(J11:J" & lastRow & ")/ SUM(I11:I" & lastRow & "))" 
    Range("E6").Formula = "=(SUM(U11:U" & lastRow2 & ")/ SUM(T11:T" & lastRow2 & "))" 
    Range("H6").Formula = "=E6-B6" 

Запуск этого получает две формулы: = (SUM (J11: J0)/сумма (I11: I0)) и = (SUM (U11: U0)/SUM (T11: T0)) , Почему конец диапазона равен нулю ???

Answer 1

Я уверен, что происходит, если вы не определяете, какой рабочий лист находятся в объектах range() и row(), поэтому VBA угадывает и, вероятно, неправильно угадывает. Попробуйте добавить объект рабочего листа и затем определить все диапазоны и строки, которые будут использоваться на этом листе.

Dim lastRow As Long 
Dim lastRow2 As Long 
Dim ws As Worksheet 

Set ws = ActiveSheet 
lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row 
lastRow2 = ws.Range("M" & ws.Rows.Count).End(xlUp).Row 


'... 



'Calculate ATRT 2014 at cell B4 
ws.Range("B6").Formula = "=(SUM(J11:J" & lastRow & ")/ SUM(I11:I" & lastRow & "))" 
ws.Range("E6").Formula = "=(SUM(U11:U" & lastRow2 & ")/ SUM(T11:T" & lastRow2 & "))" 
ws.Range("H6").Formula = "=E6-B6"