エクセルの操作方法について

質問

ＢＯＯＫ１のシート１にデータが入ってます。
Ａ１からＡ１００まで１００個のデータが入ってます。

このデータをＢＯＯＫ２のシート１に移します。
移す場所は、
Ｂ１、Ｂ６、Ｂ１１、Ｂ１６．．．．．．の
等間隔に空いたセルです。データの順番は変えません。

この操作を簡単にする方法はありますか？
やはり、プログラムみたいなのを作らないとダメですか？
もし、そうならプログラム例を教えてくれたらうれしいです。よろしくお願い致します。

回答No.1

noname#148473 · ベストアンサー

まず、BOOK2のシート１のA1に次の数式を入力してください。

=IF(MOD(ROW(),5)<>1,"",OFFSET([Book1]Sheet1!$A$1,INT((ROW()-1)/5),0))

つぎに、A1セルをA2～A496セルにコピーします。
※A1セルを選択し、セルの右下にある小さな■（＝フィルハンドル）を下方向へA496セルまでドラッグすれば簡単です。

もし、BOOK2のデータが数式ではなく値そのものであったほうが良い場合は、A1～A496を「範囲指定→コピー→形式を指定して貼り付け→値のみ」とすれば、数値に置き換えることが出来ます。

少し簡単に書きましたので、分かりにくい点があれば補足してくださいね。

回答No.3

wolv

もっと基本的な機能だけを使った別解：

まずデータをブック２のＢ列にコピーして、
Ａ１からＡ１００に１から１００の数字を入力、
同様に、Ａ１０１からＡ２００、Ａ２０１からＡ３００、Ａ３０１からＡ４００、Ａ４０１からＡ５００にも１から１００の数字を入れます。

続いてソートします。
Ａ，Ｂ列を選んで、Ａ列でソートすれば望みの結果になるはずです。Ａ列が必要なければ削除または消去してください。

回答No.2

imogasi

ＢＯＯＫ１の空き列の第１行に
=IF(MOD((ROW()-1),5)=0,OFFSET($A$1,INT(ROW()/5),0),"")
といれて、第１００Ｘ５行まで複写します。
１，２，３・・と５ごとに１，６，１１、１６・・と値が入ります。
これをＢｏｏｋ２にコピー貼りつけしてください。
回答しようとすると、先に＃１のご回答が出てましたが、少し式が違いますが、アイデアは同じですね。