エクセルについて教えて下さい。

質問

Sheet１の表を、Sheet2の特定のセルへコピーしたい。
エクセル2007を使用しています。

Sheet1の2行１組の情報をSheet２へコピーしたいのですが、どのうように行えば早くできるでしょうか？
Sheet２は１枚目から５０枚目まであり、１枚ごとに印刷したいのです。

わかりにくい説明かもしれませんが、何卒ご教示頂きますよう宜しくお願いいたします。

回答No.1

mt2008 · ベストアンサー

図の細かい所が不鮮明ですので、若干位置が違うかもしれませんが、こんな方法はいかがでしょう。

1.新しいシートを追加します。
2.新しいシートの
　　A3に　=OFFSET(Sheet1!B$2,COUNT(A$1:A2),0)
　　D3に　=OFFSET(Sheet1!C$2,COUNT(A$1:A2),0)
　　E3に　=OFFSET(Sheet1!E$2,COUNT(A$1:A2),0)
　と、入れます。
3.式をA4:E4にもコピーします（これで1枚目のデータが表示されます）
4.添付の図から判りませんでしたが、1枚の範囲が8行でしたら、A1:E8をコピーして、下方向にドラッグします（50枚目のデータが表示されるまで）。
　＃この時、2枚目以降の行位置が合っているか確認。合っていない場合はコピーする範囲を調整。
5.A:E列をコピーします。
6.Sheet2のA1を選択。
7.右クリックメニューで「形式を選択して貼り付け」を選択。
8.「形式を選択して貼り付け」画面で、「空白セルを無視する」にチェック。
　＃値だけ貼り付けたい場合は「貼り付け」の「値」を選択
9.＜OK＞ボタンでデータがSheet2に張り付きます。
10.上記1で追加したシートは不要ですので削除します。

お礼

お礼が遅くなり誠に申し訳ございませんでした。
質問慣れしていないもので、よく分からない画像を添付してしまい、御迷惑をお掛けいたしました。
回答有難うございました。

回答No.3

imogasi

質問の意味がわからない。
もう少し丁寧に説明すべきだ。画像を使われると、ぼやけて見えない場合が多い。回答者の立場になったことが無いので経験ないのだろうが。
>Sheet２は１枚目から５０枚目まであり、１枚ごとに印刷したいのです。
普通エクセルシートを１枚２枚・・という場合もあると思うので紛らわしい。
Ｓｈｅｅｔ２というシート１枚に、上のほうから順次、５０箇所（１箇所を用紙１枚で印刷する）のセル範囲にＳｈｅｅｔ１のデータを展開したいということか。
またはエクセルシートを５０枚作るということか。式の複写などがうまく行かないのでは。
ＶＢＡ向きの問題ではないのか。差込印刷的ニーズのようでもある。
印刷は関数では出来ないから、シートが別になっていると５０回エクセルのシート印刷操作が必要になり面倒だ。
（全シート印刷は１回操作で、出来るが）
１シートにある５０箇所のセル範囲を１箇所１枚、全部で５０枚に印刷するのもＶＢＡが必要では。
だからＳｈｅｅｔ２のセル範囲として５０個所にＳｈｅｅｔ１の２行ごとのデータを引っ張ってきて展開したいのか？

お礼

お礼が遅くなり誠に申し訳ございませんでした。
質問慣れしていないもので、よく分からない画像を添付してしまい、御迷惑をお掛けいたしました。
回答有難うございました。

回答No.2

MackyNo1

画像が不鮮明でA5セルに入る数式が良くわからないのですが、そのセル以外のデータをSheet2に11行単位で抽出するなら、各セルに以下のデータを入力し、以下のような操作をします。

A3セル ：　zzzSheet1!B2
D3セル ：　zzzSheet1!C2
E3セル ：　zzzSheet1!D2&""
A11セル：　=INDIRECT("Sheet1!A"&(ROW(A11)/11)*2)

A3:E3を選択して下方向に1行分オートフィル。
A1:E11セルを選択し、下方向に必要な数だけオートフィル。
最後にCtrl+Hで置換ダイアログを出して、検索する文字列に「zzz」、置換後の文字列に「=」を入力して「すべて置換」してください。

上記の数式では、データがない場合は空白セルを参照する「０」が表示されますので、これを避けるにはExcelのオプションでゼロ値を表示しない設定にするか、IF関数でE3セルが空白の場合は「""」を返す数式にする、またはすべての数式の最後に「＆""」を付ける（この場合は数字が文字列扱いになります）、あるいはセルの書式設定で表示形式をユーザー定義にして「0;-0;;@」などにしてください。

A5セルに入力する数式については、少し複雑な数式が必要な場合も考えられますので、実際に表示したい数式を具体的に（画像データではなく）例示してください。

お礼

お礼が遅くなり誠に申し訳ございませんでした。
質問慣れしていないもので、よく分からない画像を添付してしまい、御迷惑をお掛けいたしました。
回答有難うございました。