|
▼igusukei さん:
>始めて投稿します。
>VBAは殆ど解らずで、マクロの記録などをしながらカット&トライしていますが、なかなかうまく出来ません。
>何行あるか判らない表があり、L列の一番下に合計を出したい
>
>Sub Macro3()
> Dim endR As Long, endC As Long
> Sheets("Sheet1").Select
> endR = Range("A65536").End(xlUp).Row
> Range(endR + 1, L).Select
> ActiveCell.FormulaR1C1 = "sum(l2:l+endR)"
>End Sub
>
>L行のL2から最終行までの合計を最終行の下に表示したい。
>
>この式で何をしようとしているのか、判るでしょうか?
>説明が下手ですが、これを実行出来るようにしたいのですが、どなたかご教授お願いします。
Sub Macro3()
Dim endR As Long, endC As Long
endR = Sheets("Sheet1").Range("A65536").End(xlUp).Row
Sheets("Sheet1").Range("L" & (endR + 1)).Value = "=sum(l2:l" + CStr(endR) + ")"
End Sub
|
|