합계 나는이 논리를 사용하기 위해 노력하고있어

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