合計私はこのロジックを使用しようとしている

Question

ループ変数からテーブルの列の範囲：ループ文字列で

Range(Selection, Selection.End(xlUp)).Select 

を。今はデータがループで作成されているので、上の行とその列のテーブルのすべての行を選択して、SUMを下のセルに追加しようとしています。

参照によってテーブルが変更される可能性があります。データが受信されると、新しいテーブルが追加されます。テーブルの列を合計して下に追加する場合は、すべてがうまく機能します。セルは、常にこの時点で、任意のアドバイスを

i = 6 
j = 13 

ws2.Cells(i , j).Value = Application.Sum _ 
    (Range(Cells(i, j - 1), Cells(i, j - 1).End(xlUp))) 

感謝を0

を返します！ここで

Answer 1

累計を作成するためにWorksheetFunction.Sumを用いた手法です。

Sub AddRunningTotal() 

    Const FIRST_ROW = 2 
    Const SOURCE_COLUMN = 11 

    With Worksheets("Sheet2") 
     With .Range(.Cells(2, SOURCE_COLUMN), .Cells(.Rows.Count, SOURCE_COLUMN).End(xlUp)) 
      .Offset(0, 1).FormulaR1C1 = "=SUM(R2C[-1]:RC[-1])" 
      'Uncomment to replace the formulas with their values 
      '.Value = Value 
     End With 
    End With 

End Sub