質問: excelマクロを使い、空白行ではさまれた範囲の数字の合計を上段に出したいですー2 先日同じ質問をし、回答をいただき助かったのですが、 違うパターンが出てきてしまったので、分かる方にご教授いただきたいと思います。 添付のエクセルで、黄色の部分に、りんご・みかん・バナナのそれぞれのtotal数を入れたいのですが、たまに人が増えるため、行の挿入がある場合があります。(例:りんごで人が1人増え9行目に1行挿入される・・など) なので、sumの対象行を計算時に認識してからtotalを出してほしいと思います。 やり方は何でもいいです。(たとえばd列は計算対象に「*」を入れているので、「*」の次の空白までを認識して、g列で計算するなど・・) どなたか是非教えてください。ソースをいただければ細かい説明はいただかなくても大丈夫です。 どうかよろしくお願いいたします。
回答: こんにちは 前回のご質問、閉じられていないようなので 前回のご質問に補足質問するか、閉じられるか、した方がよろしいと思います。 2度目のご質問のようなので、そのあたりは、確認してくださいね。 前回 https://oshiete.goo.ne.jp/qa/12471561.html で、コードが欲しいのと短いコードが良さそうなので 下記を記しますが、 コードの処理内容などはご自身で理解するようにしてください。 少し変わると又質問、を繰り返すと良くないと思いますので、、 ご質問の場合、数値の行に空白が出来た時に困っていると言う事でしょうか? りんご、みかん、バナナ c列の値を頼りに処理すれば良いのではないかと思います。 掲示画像でのサンプルです sub sample() dim r as range, st_r as range, ed_r as range dim i as long set st_r = range("c6") for i = 1 to application.countif(range("c6", cells(rows.count, "c").end(xlup)), "<>") set ed_r = st_r.end(xldown).offset(-1) st_r.offset(, 4) = " 計(" & application.sum(range(st_r.offset(1, 4), ed_r.offset(, 4))) & ")" set st_r = ed_r.offset(1) next end sub