Excel：別ブックにデータを抽出・追加するマクロをお教えください。

質問

ご覧いただきありがとうございます。
　下記の表１を入力したあと、ボタン一つで、別のブックの表にそのデータが追加されるようなマクロをExcelで作ることはできるでしょうか。もしもできるようでしたら、ぜひその方法をご教授ください（マクロについては初心者以前の段階なので、無謀なお願いかもしれませんが）。
　なお、実際は、縦・横とももっとセルの数は多いです。また、表１は複数のシートを串刺し集計したものです。

（表１）
　 A 　B 　C 　D　　　E　　　F　　　G
1 日付　　　　　　　　　　相手先 フラグ1
2　(A2:F4には数値が　　　　　　　フラグ2
3　 入っています)
4
5　　　　　　 計1　　計2　　計3

　　　　↓最下行にデータを抽出・追加

（表ア）
　A　　B　　　C　　　　D　　　E　　　F　　G　　H
1 １　日付　相手先　フラグ1 フラグ2 計1　計2　計3
2 ２
3 ３
　：
（連番は自動で振られるとうれしいです）

　普通は、表アのようなシンプルな表を先に作って表１のようなものに反映させるのでしょうが、表１は複数の表を集計して作るものなのでそうもいきません。なにとぞお知恵をお貸しくださいますようお願いします。

回答No.2

papayuka · ベストアンサー

#1です。

サンプルとして、別ブックでは無いですが シート名 Sheet1 のA1～C1のデータを、実行するたびにシート名 Sheet2のAx～Cxに追加して行きます。（最初の判定をはしょっているので、Sheet2の2行目から転記されて行きます）

Sub Test()
Dim LRow As Long
　With Worksheets("Sheet2")
　　LRow = .Range("A65536").End(xlUp).Row + 1
　　Worksheets("Sheet1").Range("A1:C1").Copy _
　　　　　　　　Destination:=.Range("A" & LRow)
　End With
End Sub

参考に。

お礼

早速のご回答ありがとうございます。コピーして試させていただきました。コードの意味も、手元の入門書などで勉強させていただこうと思います。ありがとうございました。

回答No.3

imogasi

以下の点が不明。
１．表１の日付について
A2,A3、A4には同じ日付が入っているか。
A2:A4には数値が入っていると言うことだが、A2は日付
ではないのか。（日付もシリアル値であることは別にして）
２．計１はB2:B4の合計
　　計２はC2:C4の合計
　　計３はD2:D4の合計
ですか。合計はいつも第５行のB:D行にあるのですか。
ない場合は、何を目印に合計行と解釈するのか。
（合計は第４行目でなく、もっと下にあることは説明から了解しているが）定位置かどうか。
３．＞A2:F4には数値が入っている　
F列の相手先も数字（値）ですか。
４．表アのフラグ1 フラグ2はどう言う総括をするのか。
表１でFとG列の第２－４行の値は０と１などが入ってたり入っていなかったり、するのでしょう。であれば表アは１行であるから、どうする。
５．コマンドボタンをクリックしたとき転記する。
その際表アには１行だけ追加されるのでよいか。

補足

説明が至らず、申し訳ありません。補足させていただきます。表１を不正確に書いていました。もっと正確に書きますと、

（表１）
　 A　　B　　　C　　D　　E　　　F　　　G　　H
1 8/14　　　　　　　　　　 　　　　 akeem　今年度分
2 担当 品目1 品目2 小計 品目3 品目4　合計　1万円未満
3 ○○　0　　 0　　 0　　 0　　　0　　 0
4 □□　0　　10　　10　　25　　 30　　65
5 △△　0　 　0　　 0　　 0　　　0　　 0
6 計　　0　 　0　　10　　25　　 30　　65

　このような感じです。また、ご確認いただきました項目毎に補足させていただきますと、

１．日付が入るのはA1だけです。
２．最初の質問とは表を若干変えてしまって申し訳ないのですが、計１はD3:D5の合計、計２はE3:E5の合計、計３はF3:F5の合計です。また、合計の行は常に定位置です。
３．相手先は文字列（名前）で、G1のみに入力します。
４．フラグと書いていましたが、ここは注釈で、H1は必ず入力します。H2は入力しないときもあります（H1、H2とも文字列です）。これらの注釈は、表１の中では使いません。表アに抽出されたデータに対してオートフィルタをかけるときに使いたいと思っています。
５．追加されるのは１行だけで結構です。

　拙い説明で恐縮ですが、よろしくお願いいたします。

回答No.1

papayuka

出来るか？って質問なら出来ます。

簡単か？って事なら、マクロ記録を修正して使えるくらいのレベルでも厳しいかも知れません。
何処までやるかにもよりますが。

表1のデータセルが固定（データは必ずA1とF1とG1とG2にあるって感じ）なら多少は楽ですが、、、