可変の場合における行の合計値を算出したい

Question

月によって30日だったり31日だったりなど日数が異なる為、B10セルから右端までの合計を出したいです。

	Dim LastColumn As Long
    LastColumn = Range("B10").End(xlToRight).Column
    
    Cells(10, LastColumn).Offset(0, 1).Select
    ActiveCell = "=sum(B10:B" & LastColumn & ")"

現状、10行目の最終セルの隣をアクティブセルにするところまで出来たのですがSUM関数で日数が可変であったとしても右端までの合計を出す書き方をご教授いただきたいです。

宜しくお願い致します。

Answer 1

式で設定する場合は列番号ではなく列名(アルファベット)で指定する必要があります。
Addressプロパティで列名を取得するといいでしょう。

    Dim LastCell As Range
    Set LastCell = Range("B10").End(xlToRight)

    LastCell.Offset(0, 1).Select
    ActiveCell = "=sum(B10:" & LastCell.Address(False, False) & ")"

Comments

[suukun]

ありがとうございます。なんとか想定通りの動作が出来ました。