エクセルの質問（結合と集計に関して）

質問

エクセルのマクロに関する質問です。

Ａ列には時刻、Ｂ列とＣ列には数値または空白が入っているエクセルファイル（ファイル名は固定です）が２０個あります。
これらを１ファイルに集計表として作成したいのです。但し、Ａ列の時刻を昇順にして行を並べ替えて、Ｂ列とＣ列の最下行にはそれぞれの合計を表示したいのです。

作ってみたら、３つの問題に直面しました。
（１）マクロを実行すると、読み込みファイル２０個それぞれ「変更を保存しないで閉じますか」「クリップボードの内容を破棄して良いですか」のポップアップダイヤログが出る。出ないようにできないか。
（２）各ファイルの行数が不定であるため、コピー＆ペーストの選択範囲をどう指定したらよいか。
（３）各ファイルの行数が不定であるため、Ｂ列とＣ列の合計をどのセルにセットしたらよいか。
良い方法があれば、教えて頂きたいです。
よろしくお願いします。

回答No.1

Wendy02 · ベストアンサー

Excelでは、ファイルのことを、ブックと読んでいます。ですから、ご質問が、少しぼやけてしまいます。そういう時は、できるだけ自分で書いたコードを掲示してください。その方が、話がわかりやすいです。

(1)は、たぶん、　Application.DisplayAlerts = False
　　や、ActiveWorkbook.Saved =True
　　で、切り抜けられると思います。

(2) End プロパティで、Range("A1", Range("A65536").End(xlUp).Offset(,6)).Copy などとすれば、範囲は取れるのではないでしょうか？(A列～F列まで）

(3) ご質問の意味が、各ブックのデータの最下部の下のB列C列の合計ということでしょうか？それとも、コピーされた側のまとめ用のブックでしょうか？いずれにしても、(2) の応用でいいのではないでしょうか？

ans =　Application.Sum(Range("B1", Range("B65536").End(xlUp)))
If Not IsError(ans) Then
　 Range("B65536").End(xlUp).Offset(1).Value = ans
End If

なお、実際のデータに当たってみたわけではないので、必ずしも、これが正しいとはいえません。とりあえず、参考にしてみてください。

お礼

回答ありがとうございます。
おかげ様で、うまく出来ました。

回答No.2

tosi0000

私の想像ですが、「マクロの記録」を使って作成されているのではないでしょうか。
shift + ctrl + 矢印キーで範囲選択できますので、なるべくVBAで記述しない方法を書きます。

（1）は前の方の回答の通りです。
もしもVisual Basic Editorで開いた時に、
ActiveWindow.Closeの記述となっているようでしたら、
ActiveWindow.Close (True)へ変更してく下さい。

（２）の手順は
(1)ファイル１を立ち上げて、１行を選択。
（一番左の１をクリックです。）
(2)shift + ctrl + ↓で範囲選択でコピー。
（データがある範囲のみ選択されます。）
(3)書き出し先シートの１行を選択して、「コピーしたセルの挿入」
これを20回繰り返します。
（表が下にどんどん伸びて行きます。）
(4)書き出しシートのA1を選択。
(5)shift + ctrl + ↓ を行い、そのまま→を押すと並び替えしたい範囲が選択されます。
(6)並び替え処理実行。
これでデータが揃います。

（３）に付いてはVBAを書く方法しか思い付きませんでしたので、(2)で作られた最後の行へこの記述を追加してください。
For Each MyObj In Range("A:A")
If Trim(MyObj.Text) = "" Then
Cells(MyObj.Row, MyObj.Column + 1).FormulaLocal = "=SUM(B1:B" & MyObj.Row - 1 & ")"
Cells(MyObj.Row, MyObj.Column + 2).FormulaLocal = "=SUM(C1:C" & MyObj.Row - 1 & ")"
Exit For
End If
Next
条件としてA列の途中に空白のセルがあっては正常に動作しません。

お礼

（３）の記述、分かりました。
Ａ列の空白セルがあれば、その右にＢ列合計、Ｃ列合計を入れる処理ですね。
回答ありがとうございました。

補足

その通り、「マクロの記録」で作っていました。
shift + ctrl + 矢印キーで、データの存在する範囲を指定できるとは知りませんでした。
Ｎｏ．１さんの回答を参考にして、マクロは作成できたのですが、Ｎｏ．２さんの（３）に書いてあるＶＢＡの記述がどういう処理をしているのか是非理解したいので、もう少し勉強してみます。
理解したとき「お礼」を書きますね。