エクセル vba セル合計

質問

添付表について下記の様な処理をしたいのですが途中からVBAの書き方が（セル合計）がわからず困っております。

　＊日別の原価計（K列のセル値）の小計（K列の最終入力行の下※ｋ１１２）に計算する。

自分ではこの様を処理を考えております。

(1)商品名（G列）最終入力行の1行下を選ぶ（G１１２）
(2)　(1)の同行にある（k112)を合計算出セルとして選ぶ
(3)商品名（G列）最終入力行（g112)からその列上の空欄行の１セル下（ｇ６６）を見て（要はg
112からEnd(xlUp))、その行と同じ範囲のK列（ｋ１１２ーｋ６６）を合計をする範囲として選ぶ
(4)　(2)の合計する範囲を(3)で算出する。

VBA素人の私では(1)～(3)までを下記の通り書きました。

Sub 原価合計求める()

Dim lastrowshu As Long
Dim lastrowgen As Long
Dim fastrowgen As Long

lastrowshu = Cells(Rows.Count, 7).End(xlUp).Row + 1 '帳票シートの商品名（G列）最終入力行+1を取得する。
lastrowgen = Cells(Rows.Count, 7).End(xlUp).Row '商品名行の最終入力
fastrowgen = Cells(lastrowgen, 7).End(xlUp).Row '商品名最終入力行から一番上

Cells(lastrowshu, 11).Select

ここまでを実行すると添付ファイルでいうｋ１１２セルをselectするまではうまくいきましたが、
これ以降の(4)の合計の書き方がわかりません。　どなたか御教授願います。　あるいはもっといい方法があれば同時にご指導頂けますと幸いです。

回答No.1

MSZ006 · ベストアンサー

ワークシート関数をVBAで使うことができます。SUM関数を使ってみます。

Cells(lastrowshu, 11).Value = Application.WorksheetFunction.Sum(Range(Cells(fastrowgen,11),Cells(lastrowgen,11))

としてみてください。

お礼

ご回答ありがとうございます。
補足頂きました ）を追加して実施してましたところ、うまく行きました。　大変助かりました。

回答No.2

MSZ006

#1です。
すみません、カッコ閉じるが一つ足りませんでしたね。最後に　)　を追加してください。