VBA内の細胞の平均

Question

VBAの新機能。列（D）を別の列（C）の平均値で埋めるマクロを作成しようとしています。私は、変数nb_rowsを作成し、このコードで開始している：私はエラーを取得しています

Dim myRangeC As String 
    Let myRangeC = "C4:C" & nb_rows 

    For i = 4 To nb_rows 
    Range("D" & i).Value = Application.Average(myRangeC) 
    Next i 

。どこが間違ってしまったの？現在、nb_rowsは27に設定されています。

Answer 1

これは私にとってはうまくいくようです。列Dのすべての行に平均を配置します（これがあなたの意図かどうかはわかりませんが、コードが現在どのように構造化されているかはわかりません）。 （自分のシート名にシート1を変更する）範囲を宣言して設定するための適切な手順を使用してRange

セットmyRangeCにStringからmyRangeCを変更

：

Sub Test() 

     Dim nb_rows As String 
     Dim myRangeC As Range 
     Dim i As Long 

     nb_rows = 27 

     'Change Sheet1 to your sheet name 
     Set myRangeC = Worksheets("Sheet1").Range("C4:C" & nb_rows) 

     For i = 4 To nb_rows 
       Range("D" & i).Value = Application.WorksheetFunction.Average(myRangeC) 
     Next i 

End Sub 

には、いくつかの注意事項

• Application.Average〜Application.WorksheetFuncion.Averageに変更され、範囲内で渡されました（文字列ではなくRangeオブジェクトを受け入れます）

必要に応じてもっと明確に説明することができます。