列合計のExcel VBAコード

Question

クイック質問

列データを合計するためのVBAコードは何ですか。理想的には合計/合計は各列の最後の行になります。私の例は以下の通りです。

**Purchase Value** 
6,578,548.01 
15,883,286.84 

     - 
     - 
     - 
45,929,606.02 
26,446,713.72 

Answer 1

最初のセルと最後のセルのアドレスが列に含まれていることを確認してから追加できます。あなたがそれを行うことができますいくつかの方法があり、ここではあなたのためのものです：

Sub columnSum() 

    varSumColumn = Cells.Find(What:="**Purchase Value**", LookAt:=xlWhole).Column 
    varColumnFirstRow = Cells.Find(What:="**Purchase Value**", LookAt:=xlWhole).Row + 1 
    varColumnLastRow = Cells.Find(What:="**Purchase Value**", LookAt:=xlWhole).End(xlDown).Row 
    varColumnSum = Application.WorksheetFunction.Sum(Range(Cells(varColumnFirstRow, varSumColumn), Cells(varColumnLastRow, varSumColumn))) 
    Cells(varColumnLastRow + 1, varSumColumn) = varColumnSum 

End Sub 

この例では、購入バリューでカラムを見つけ、その後、和の範囲を決定し、それらを加算します。 私が言ったように、それはいくつかの可能な方法の1つです。

Answer 2

は、私たちは、あなたが持っている列の残りのためにこれを行う列に

Sub simple() 
    LastRow = Range("A" & Rows.Count).End(xlUp).Row 
    Total = Application.WorksheetFunction.Sum(Range("A2:A" & LastRow)) 
    Range("A" & LastRow + 1).Value = Total 
End Sub 

をご購入の値を仮定しましょう。列が長い場合はお知らせください。

Answer 3

次のコードは、シート内のすべての列の合計を示します。合計は各列の最後の行の下に表示されます。

Sub SumAllColumns() 
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column 

    For col = 1 To lastCol 
     lastRow = Cells(Rows.Count, col).End(xlUp).Row 
     colSum = WorksheetFunction.Sum(Range(Cells(2, col), Cells(lastRow, col))) 
     Cells(lastrow + 1, col) = colSum 
    Next col 
End Sub