Excel VBA-範囲のゼロ値を返す動的数式

Question

変数lastRowおよびlastRow2への入力と同じデータセット内の2つの範囲の式をvbaに作成しようとしています。しかし、式を作成して計算しようとすると、最後のセルの値を取得する代わりに、ゼロが得られます。以下の問題のコード：=（SUM（J11：J0）/ SUM（I11：I0））と=（SUM（U11：U0）/ SUM（T11：T0））

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" 

が、これは2つの式を取得し実行します。なぜ範囲の終わりはゼロですか？

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"