データ個数が可変の場合である際のオートフィル

アクティブセルに対しセルの値が可変であった場合において合計値をオートフィルしたいです。

Resizeを使うことでデータの個数が取れるようなのですが、その都度合計する対象のデータが異なる為、柔軟に対応できるようにしたいです。

行の個数をカウントするようにResize(Selection.Rows.Count)と書いたのですが、うまくいかない状況です。

解決策を教えていただけますと幸いです。

    Dim LastCell As Range
    Set LastCell = Range("B3").End(xlToRight)
    Range("B3").End(xlToRight).Select
    LastCell = ActiveCell.Offset(0, 1).Select
    ActiveCell = "=sum(B3:" & LastCell.Address(False, False) & ")"
    Range("B3").AutoFill Range("B3").Resize(Selection.Rows.Count)

行動規範の内容に同意します

回答1件

ベストアンサー

どんな状態のデータがあってどうしたいのかが読み取れませんでしたが、
こんな感じでどうでしょうか。

VBA
1Sub sample()
2    Dim LastCell As Range, DataRange As Range, SumCell As Range
3    
4    Set LastCell = Range("B3").End(xlToRight)
5    Set DataRange = Range("B3", LastCell)
6    Set SumCell = Range(LastCell, LastCell.End(xlDown)).Offset(, 1)
7    SumCell.Formula = "=SUM(" & DataRange.Address(False, False) & ")"
8
9End Sub