質問: マクロで可能ですか。 1ヶ月の売上表があり、下記のように 日付毎の合計を、その日付の最終行に表示するのはマクロなどで可能でしょうか。 関数をセルにコピーしていたのですが、 最終行を探し、31日分コピーするのが不評です。 (下記では簡略化しておりますが、1日分の行数が何十行とあります。) もっと簡単に出来ないのかと言われ、ご教授いただけると幸いです。 excel2010です。 誰でも使用可能なように、シート名に依存しない仕様だと有難いです。 ご協力宜しくお願い致します。 a列 b列 c列 d列 2014/11/01 商品a \1000 2014/11/01 商品b \1200 \2200 ←11/1の合計 2014/11/02 商品a \1000 \1000 ←11/2の合計 2014/11/03 商品c \1500 2014/11/03 商品b \1200 \2700 ←11/3の合計 : : 2014/11/30 商品a \1000 2014/11/30 商品a \1000 \2000 ←11/30の合計
回答: no.1です。 投稿後 >最終行を探し、31日分コピーするのが不評です。 を見逃していました。 前回の方法は最終行を気にすることなく、これ以上データはない!というくらいまであらかじめフィル&コピーしておいても大丈夫だと思いますが、 どうしてもvbaで!というコトであれば、一例です。 (vbaでもやっているコトは同じです) sub sample1() dim lastrow as long lastrow = cells(rows.count, "a").end(xlup).row if lastrow > 1 then range(cells(2, "d"), cells(lastrow, "d")).clearcontents end if with range(cells(2, "d"), cells(lastrow, "d")) .formula = "=if(a2<>a3,sumif(a$2:a2,a2,c$2:c2),"""")" .value = .value end with end sub ※ 関数の場合はデータ変更時に即座に結果が表示されますが、 vbaだとその都度マクロを実行しなければなりません。m(_ _)m