Excelで異なるシートの内容を1つのシートに

初心者です。

Excelで、行列数異なるシートBとシートCの内容を、単純にシートAに1つにする場合
マクロではどのように書けばよいのでしょうか？？

宜しくお願いしますm(__)m

No.3 ベストアンサー 回答者： jacob-wk9 回答日時： 2012/12/14 11:53

お返事ありがとうございます。

今、ちょっと時間がないので、基本だけ貼り付けます。
実際には、どこまでの範囲までデータが入っているかよくわからないというケースだと思いますので
どこまでを範囲指定するか、というもう少し応用編なプログラムが入りますが
あとはできたら、他の人にお任せしたいと思います。

Worksheets("Sheet3").Range("A1:E4").Value = Worksheets("Sheet1").Range("A1:E4").Value
Worksheets("Sheet3").Range("A5:C6").Value = Worksheets("Sheet2").Range("A1:C2").Value

この回答へのお礼

ありがとうございます！本当に助かります！

お礼日時：2012/12/14 11:59

No.2 回答者： tsubuyuki 回答日時： 2012/12/14 11:49

「初心者」なら無理にマクロに手を伸ばさずに手動でどうぞ。

マクロは基本機能をある程度使えるようになってからで遅くありませんから。


さて、エクセルの基本情報に「マクロの記録」と言うものがあります。
記録状態にしてエクセルを操作すると、その操作をマクロに落としたものを記録してくれます。
つまり、記録状態にして「Ｂをコピー、Ａに貼付」・「Ｃをコピー、Ａに貼付」と操作してみましょう。
そうすると、マクロ（ＶＢＡ）ではどのように書いたらいいのか確認できます。


もう一つ、初心者ならなおさらですが、安易に人に聞くより自分で調べた方が身に付きますよ。

No.1 回答者： jacob-wk9 回答日時： 2012/12/14 11:01

基本はこれで。

Sub test()
Worksheets("シートA").Range("A1").Value = Worksheets("シートB").Range("A1")
Worksheets("シートA").Range("A2").Value = Worksheets("シートC").Range("A1")
End Sub

この回答への補足

ありがとうございます！
…本当にど素人で申し訳ないのですが、
以下のようなものをイメージしてます。

<シートB>
A B C D E
1 BA1 BB1 BC1 BD1 BE1
2 BA2 BB2 BC2 BD2 BE2
3 BA3 BB3 BC3 BD3 BE3
4 BA4 BB4 BC4 BD4 BE4

<シートC>
A B C
1 CA1 CB1 CC1
2 CA2 CB2 CC2

↓（マクロ）

<シートA>
A B C D E
1 BA1 BB1 BC1 BD1 BE1
2 BA2 BB2 BC2 BD2 BE2
3 BA3 BB3 BC3 BD3 BE3
4 BA4 BB4 BC4 BD4 BE4
5 CA1 CB1 CC1
6 CA2 CB2 CC2


いただいた回答で、応用すればよいでしょうか??
よろしくお願いします！

補足日時：2012/12/14 11:24