式のVBAダイナミックレンジ

Question

以下に私のコードのスニペットを掲載しました。私の実際のワークブックにはもっと多くの数式がありますが、それらはすべて以下の数式のように構成されています。私が扱っているデータの量は1ヶ月ごとに変わる可能性があるので、数式が必要な行の数は決して分かりません。私のちょっとした不満は、すべての式の宛先範囲を"XX2：XX500"にすることでした。これは決して500行を超えないためです。

'November Remaining Spending Plan 
Range("BF2").Select 
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-43]+RC[-40]+RC[-37]+RC[-34]+RC[-31]+RC[-28]+RC[-25]+RC[-22])" 
Selection.AutoFill Destination:=Range("BF2:BF500") 

'December Remaining Spending Plan 
Range("BG2").Select 
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-41]+RC[-38]+RC[-35]+RC[-32]+RC[-29]+RC[-26]+RC[-23])" 
Selection.AutoFill Destination:=Range("BG2:BG500") 

Iダイナミックレンジが非常に式Iの

"IF(RC[-1]="""",""""," 

一部を除去し、ブック内の余分な式を有するピボットテーブルと、他のユーザのために理想的ではないことができるしたいと思い。

私はLastRow、FillDown、CurrentRegionの組み合わせを使用して範囲を試してみましたが、私は運がありませんでした。

各フォーミュラは他のすべてのフォーミュラと同じ量の行を持ち、数式の数は常に列Aの行数から1を引いた数になります（マイナス1はヘッダー用です）。

これをクリーンアップする方法はありますか？

ありがとうございます！

Answer 1

Dim lastRow As Long 
Dim ws As Worksheet 
'Always set the parent of all Range Objects 
Set ws = ActiveSheet 'This should be called by name: Worksheets("Sheet1") 

' this assumes column "A" is the column which sets the lastrow. 
'If a different column sets the end of the dataset change "A" to that column 
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 

'do not use .Select or .Activate it slows the code 
'You do not need autofill just put it in all the cells at once 


'November Remaining Spending Plan 
ws.Range("BF2:BF" & lastRow).FormulaR1C1 = "=RC[-43]+RC[-40]+RC[-37]+RC[-34]+RC[-31]+RC[-28]+RC[-25]+RC[-22]" 

'December Remaining Spending Plan 
ws.Range("BG2:BG" & lastRow).FormulaR1C1 = "RC[-41]+RC[-38]+RC[-35]+RC[-32]+RC[-29]+RC[-26]+RC[-23]" 

Answer 2

あなたは毎月データをリフレッシュしているようで、データの右側の列に数式を入れる必要があります。問題は、数式を配置する行を決定する方法です。短い答えはThisWorkBook！Workbook_Open（）サブBRO2からBG500（最大範囲だから）の範囲を削除するコードを配置し、行2から数式をコピーあなたがデータを持っている行の数にします。私はあなたがこれを行う方法を知っていると仮定したので、LastRowに言及しました。サンプルコードが必要ですか、これで十分ですか？