エクセル2010の内容を次のシートに自動で出したい

質問

エクセル2010でAからAQまで60行の表を作りました。 これの1行目のAから10行目のAQまでを次のsheetに自動的に出して11行目のAから10行目のAQまでをその次のsheetに自動的に出したいのですが、どう

回答No.3

imogasi · ベストアンサー

文章だけ書いて、全部のコード作成を要求する、丸投げではないか。
ＶＢＡの最低限を勉強して無いのに、やりたいことだけは一人前とかの状態ではないか。
ーー
思考過程の１例を示してみる。
マクロの記録を３シート分ぐらい取って（コピー貼り付けが中心）、コードをじっくりながめて、似たもののコードの３回繰り返しになっているが、コードは１回分にして、実行時には指定回の繰り返し作業のコードにするには、何処を変えれば良いか、考えて見ればよい。
ーー
１－１０　　行
１１－２０
２１－３０
・・
は i 回目はどうなるか考えたか。中学受験の算数の問題だ。
Sub test01()
For i = 1 To 4
n = (i - 1) * 10 + 1
Range("a" & n & ":C" & n + 9).Select
MsgBox "a"
Next i
End Sub
をやって納得してみたら。
但し、例なので判りやすいように
Ｃ列までにしているーー＞ＡＱに拡げるのは判るだろう。
繰り返しを４回にしているーー＞最終行をとらえて１０で割り、＋１した回数が、繰り返し必要回数だ。
MsgBox "a"はそこで止めて、シートの選択範囲を見せるためのもの。本番では関係ない。
最終行の行番号をとらえるコードは、知っているのかな。Ｇｏｏｇｌｅで「エクセルＶＢＡ　最終行」で照会したら。
ーー
コピー貼り付けは　ＸＸＸ．Ｃopy 新シート.Ｒａｎｇｅ（”Ａ１”）
ＸＸＸはコピー元のセル範囲だ（上記で説明）
新シートは、となりのシートということで、シートＩｎｄｅｘを＋１すると指定できる。
それには、初心者は必要数シートを操作で作って（挿入しておいて）、コードが難しくなるのをさける、のがよかろう。
２つのシートを扱うので、それを指定するやり方の習得必要（略）。

お礼

ありがとうございました

回答No.2

muunoy

質問内容の処理をそのまま実行すると、
１．A1:AQ10のデータを次のシートにコピー
２．A11:AQ20(読み方によってはA11:AQ10ともとれますが、それはないかと。)をそのまた次のシートにコピー
※A21:AQ60のデータは特に処理なし
ということになってしまいますが、大丈夫ですか？

A1:AQ60にある表を、10行ずつ6シートに分割する処理ではないのですか？
違っていたらすみません。

「自動的に出したい」とのお話から、繰り返し行わなくてはならない処理なのだろうとも予想しました。

自分であれば、VBAマクロを作成して対応します。
もし、60行のデータを10行ずつ別々シートに分割する処理なのであれば、一度マクロを記録しておくだけでも済みます。

また、気になったのは、マクロや数式を使用するとしたら、表示形式等のセルの書式設定はコピーしなくて問題ないかという点です。

データの種類や分割したデータの使い方など、もう少し詳しい情報があった方が、作業にあった方法を考えやすいかと思います。現在の表を、そのまま使う方法もあるかも知れません。

お礼

ありがとうございました

回答No.1

keithin

ぶっちゃけ言えば，
元シートのA1：AQ10をコピーする
１枚目のA1に型式を選んで貼り付けの「リンク貼り付け」をクリックする
元シートのA11：AQ20をコピーする
２枚目のA1に型式を選んで貼り付けの「リンク貼り付け」をクリックする
　：
を合計６回手を動かして作成するのが，一番簡単確実で手間の少ない方法です。

６回手を動かすのもイヤでたまらないのでしたら，もっと手数が多い次のような段取りもあります。

元のデータを「元データ」というシートに記入する
Sheet1からSheet6まで６枚のシートを用意する
ブックを一度保存する
６枚のシートを作業グループにする
A1:AQ10を選択する
=OFFSET(INDIRECT("元データ!A"&((RIGHT(CELL("Filename",A1))-1)*10+1)),ROW()-1,COLUMN()-1)
と記入し，コントロールキーを押しながらEnterで入力する。