| |
こんにちは。かみちゃん です。
> endR = Range("A65536").End(xlUp).Row
A列の最終行を取得しますが、よろしいですか？
> Range(endR + 1, L).Select
endRの値が3だった場合、
Range(3 + 1, L).Select
つまり
Range(4, L).Select
となって、できないことはわかりますか？
> ActiveCell.FormulaR1C1 = "sum(l2:l+endR)"
FormulaR1C1プロパティのヘルプを確認してください。
「指定されたオブジェクトの数式を R1C1 形式で、〜」と書かれていると思います。
>L行のL2から最終行までの合計を最終行の下に表示したい。
ということで、添削させていただくと、
Sub Macro3()
Dim endR As Long
Sheets("Sheet1").Select
endR = Range("L65536").End(xlUp).Row
Range("L" & endR + 1).Select
ActiveCell.Formula = "=SUM(L2:L" & endR & ")"
End Sub
となります。
|
|
かみちゃん
- 05/2/9(水) 21:59 -
