vba平均化移動セル

ここに最初に投稿し、VBAで非常に新しい。vba平均化移動セル

私は行の最後の4つのセルを平均化するマクロを作成しようとしていますが、最後のセルは新しい週になるので常に右に1つあります。エンド（xlright）で遊んしようとすると、ここでエラーがどこかに明らかにありますけれども、私はgot-何

：

ActiveCell.FormulaR1C1 = "=AVERAGE(End(xlRight).Offset(-4):End(xlRight))"

すべてのすべてのヘルプは大歓迎です。

ありがとうございます！ VBAでそう行＃1の

2016-10-10 Isjacobe

'= AVERAGE（INDEX（1：1、MATCH（1E + 99 （1：1、MATCH（1E + 99,1：1））） ' –

これで「終わり」の論理で正しい方向に行かなかったのですか？ – Isjacobe

vbaとワークシート式を混在させています。それはそのようには機能しません。 –

、無しVBA

=AVERAGE(OFFSET(A1,0,COUNT(1:1),1,0-5))

：

Sub dural() 
    MsgBox Evaluate("AVERAGE(OFFSET(A1,0,COUNT(1:1),1,0-5))") 
End Sub

2016-10-10 20:13:34

ヘイ・ゲイリー・スチューデント - あなたは私に幅のビットを説明できますか？ 0-5の範囲について混乱し、どのように最後の4を返すのか（これは間違いなくあなたにありがとう！）私のための謝罪noviceness。 – Isjacobe

答えて