[[20040625121028]]　『マクロで合算』（miyuki）　ページの最後に飛ぶ

『マクロで合算』（miyuki）

 A        B       C        D        E        F ・・・・AU
 1	80	1	2	1	3
 1	81	1	6	5	7
 1	80	8	7	9        8
 2       85       6         7        8        4

 上記のような表があった場合に列Ａ、Ｂを元にして
下記のようなものをマクロで作れませんか？

 A　　　B　　　　　C　　　　D　　　　E　　　　F・・・・AU
1　　　80　　　　9　　　　　9　　　10　　　11
1　　　81　　　　1　　　　　6　　　5　　　　7
2　　　85　　　　6　　　　　7　　　8　　　　4

 A列とB列をキーにしてC列、D列・・AU列までの合算をしたい
こんなマクロってつくれるのですか？
エクセル2002です

 現在使用中のものから抜き出し。
シートには集計するデータのみ（もしくはそれに見出しのついたもの）
が入力されていると想定しています。それ以外のデータが入っている場合は
セル範囲の取得に手入れが必要。
　
 Sub TEST_20040625a()
 Dim i As Long, MyRow As Long, MyCol As Long
 Dim C As Range

 MyRow = Range("A65536").End(xlUp).Row
 MyCol = Range("IV1").End(xlToLeft).Column
     Range(Cells(1, 1), Cells(MyRow, MyCol)).Sort _
         Key1:=Range("A2"), Order1:=xlAscending, _
         Key2:=Range("B2"), Order2:=xlAscending, _
         Header:=xlGuess  '一行目が見出しの場合
 '       Header:=xlNo     '一行目がデータの場合
     For i = MyRow To 2 Step -1
         If Cells(i, 1) = Cells(i - 1, 1) And _
            Cells(i, 2) = Cells(i - 1, 2) Then
             For Each C In Range(Cells(i, 3), Cells(i, MyCol))
                 C.Offset(-1, 0).Value = C.Offset(-1, 0).Value + C.Value
             Next C
             Cells(i, 1).EntireRow.Delete
         End If
     Next i
 End Sub
　
試すときはバックアップを忘れずにお願いします。
(KAMIYA)

 こちらで続いているようです。

http://park7.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200406/04060297.txt

  (INA)

 ↑では解決したようですが、
ちょっと手直し。
(KAMIYA)

 ヒューッ！（これ口笛のつもり）
 流石KAMIYAはん、器が大きい！
 誰がどこでマルチポストやろうが、んなもん関係おまへんわなぁ、ウン。
 　　　（弥太郎）

 何らかのお返事をもらえればよいのですが、
 質問したこと自体忘れてしまったのだとしたら
 寂しいものです。

 解決せずに放置される質問がでてしまうから
 禁止行為としている掲示板が多いのですけど。

  (INA)

 弥太郎さん　INAさん　コメントありがとうございます。
禁止されようがされまいが、する人はします。
仕事でも「ここをまず読め」といってもなかなか読んではくれません(^_^;)。
　
返事をいただけないのは不完全燃焼ですが、エクセル
の学校「だけに」来て勉強していらっしゃる方も居ら
れるでしょうから、その方たちの役に立つかもしれません。
　
私は「マルチポストそのものを禁止せず」
というkazuさんのスタンスには賛同しております。
最適解がひとつとは限らないからです。
「こっちのほうでもらった回答のほうがよかったです」
って紹介してくれてもいいくらいだと思っています。
その結果お互いが向上できればいいじゃないですか。
　
ただ、やはり回答だけ得て返答がない場合は困りモノ。
回答をもらったら（例え気に入らないものでも）なにか
反応がほしいですね。
禁止するのも理解できます。
技術　以前に　礼儀　ですな。
私もマナーのことを言われると反省すべき点は多々ありますが・・・。
(KAMIYA)

 おう、マナーっちゅう言葉が出てきたら「穴」に真っ先に入りたいのが 私ですワ。
 もめ事の種をばらまいとるんは、紛れもなくこの弥太郎めにございますからなぁ。

 「ボランティア」の語源はラテン語で「自由意志」と言う意味やそうな。
 その点から申せば返答が有っても無うても、あんさんが勝手に回答したんやから（こ
 れがボランティア）なにもそれを催促されるいわれはない、と言う論理は通ります
 わなぁ。

 阪神大震災の折りボランティアに参加しとる茶髪の少年に「なぜ？」
 と有る記者が問うと、「こんな事するん好きやから」と答えたそうですワ。

 この学校でレスを付け始めた最初の頃、解答者のレスで終わっとるスレを見るにつけ、
 この世界には随分礼儀知らずの御仁がなんと多い事かと驚きと憤りを禁じえません
 でしたワ。
 頭にケのついた御方がいまっしゃろぅ。
 あの方にたしなめられましてなぁ。
 「レスを付けたくなければ付けなければええ」って。
 「ほんまや、その通りやんけ！」（お断りしときます、私ヤンキーの兄ちゃんやない）

 ほんなこんなで、最近は返答の無いんもあんまり気ぃにならんようになりましたワ。
 こちっとら好きでレス付けてまんねんからなぁ。アハ（寂笑）

 もし、そこの生徒さん方、私を含めてレスを付けとる先生方は、あんさん方の
 でけました～っ！！！！
 っちゅう賞賛の感嘆符を待ってまんねんでぇ、ホンマ。

 ！ 「まあまあの出来かな」
 !! 「そこそこやるじゃな～い」
 !!!「この世のものとは思えない程の出来映え！」
 !!!! 「そら、やりすぎ」
 ってな塩梅に自分の回答をどう評価してくれるか楽しみにしてまんねんでぇ、多分。
 そして、それが又明日の進化したレスに繋がることうけあいです、ハイ。

 ところで、!の件ですけど
 私のばやい、!!!これだけでええですよ。（笑）
 　　　（弥太郎）

 弥太郎さんへ、

!!!

(jindon)

 あはは＾＾
 失礼ですが思わず笑っちゃいました(^_^A;
 関係のないレス失礼しましたm(_ _)m
 （川野鮎太郎）

 敬意を表して
=REPT("!!!!",10^15)
(KAMIYA)

 随分、大人になりましたね。弥太郎さん。私も!!!!
（ケ）の付く人

コメント返信：

[ 一覧(最新更新順) ]

[[20040625121028]] 『マクロで合算』（miyuki） ページの最後に飛ぶ

[[20040625121028]]　『マクロで合算』（miyuki）　ページの最後に飛ぶ