Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2943 / 76735

←次へ　｜　前へ→


	【79432】シート上で、複数合計をだす

ノンボ

- 17/10/19(木) 20:47 -


	引用なし

	パスワード

　よろしくお願いします。

　シートに複数の店舗データーがあり、上から（Ａ店、Ｂ店・・・）、Ｂ列に品目、Ｃ列に金額があります。Ａ店舗だけが品目集計してあります。Ｂ店、Ｃ店にはSUMで、金額合計をだしたいのですが、以前教えていただきました下記コードを書きました。
Sub Test()
　　 dim rng as range
　　 dim a as range
　　 on Error REsume Next
　　 With range("A30",Activecell.Specialcells(xlLastcell))
　　 End With
　　 On Error GOTo 0
　　 If rng is Nothing Then Exit Sub
　　 For Each a in Rng Areas
　　 With a
　　 .Cells(1).Offset(.Rows.count).value=WorksheetFunction.Sum(.Cells)
　　 End With
　End sub

　ここで、Ａ店舗の最終行から3行目よりセル範囲を指定したいのですが、任意のせる
("A30")ではなく、変数で行うにはどのようにコードを編集したらよいか、ご教授ください。よろしくお願いします。

0 hits

▼

【79432】シート上で、複数合計をだす ノンボ 17/10/19(木) 20:47