|
ichinose さん
ありがとうございます。
上の方のプログラムで無事できました。
ただ、自分の環境ではこれがエラーとなっえしまいます。
>Cells(Rows.Count, "d").End(xlUp).Offset(1, 1).Value = _
Application.Sum(Range("d" & st, Cells(Rows.Count, "d").End(xlUp)))
なので、コメントアウトして実行しました。
その結果、例えば、
E列が10,20,30とあるとします。
前スレであったとおり、10,20,30を基準に、並び替えをします。
D列のの合計を出すのですが、30の合計が出してくれません。
なぜか一番最後の合計のみ算出しれくれません。
具体例:
あいうえお 100 10
さしすせそ 300 10
はひふへほ 100 30
なにぬねの 300 20
まみむめも 200 30
かきくけこ 200 10
たちつてと 200 20
↓
あいうえお 100 10
かきくけこ 200 10
さしすせそ 300 10
600
たちつてと 200 20
なにぬねの 300 20
500
はひふへほ 100 30
まみむめも 200 30
←ここが算出されません。
もしかしてラスト2行がこの処理を行っているのかな?
このソース結構難しいところが多く、自分では解読がマダ不可能でしたので、
マダわかりませんでした。
すみませんが対処法方あればよろしくお願いいたします。
|
|