|
式で入れるんでしたら
R1C1方式の方がらくですね
Sub 合計2()
Dim myRange As Range
Dim 列 As Integer
Dim 開始 As Integer
Dim 終了 As Integer
Dim endR As Integer
開始 = 12 'L列目
終了 = 17 'Q列目
For 列 = 開始 To 終了
endR = Cells(65536, 列).End(xlUp).Row
Set myRange = Range(Cells(1, 列), Cells(endR, 列))
Cells(endR + 1, 列).FormulaR1C1 = "=SUM(R1C" & 列 & ":R" & endR & "C" & 列 & ")"
Next 列
End Sub
>合計を出すだけなら下記の方法で出来ます
>式で入れたいのでしたらすみません
>
>Sub 合計()
> Dim myRange As Range
> Dim 列 As Integer
> Dim 開始 As Integer
> Dim 終了 As Integer
> Dim endR As Integer
>
> 開始 = 12 'L列目
> 終了 = 17 'Q列目
>
>
> For 列 = 開始 To 終了
> endR = Cells(65536, 列).End(xlUp).Row
> Set myRange = Range(Cells(1, 列), Cells(endR, 列))
> Cells(endR + 1, 列) = Application.WorksheetFunction.Sum(myRange)
> Next 列
>
>End Sub
|
|