質問: .Resize(.Rows.Count - 1).Offset(1).Address End With End With
回答: I1:I11までに なにか数値があるのでしょうか なければ 全行足せばいい そして 関数の方が早いのでは =Sum(I:I) SUMの 場合文字は 0として 集計してくれますから マクロでも WorksheetFunction.Sum(Columns("I")) で できます。 で でできます。 範囲を指定しなければ 関数でも マクロでも 全行一度に足します。 最終行までですから その下にデーターはない I1:11に なにか数値があるなら それは 常数でしょうから 引けばいい