エクセルのシート間引用数式の行単位複写について

質問

エクセルの行単位複写について質問です

同じブック内の別のシートからデータを引用しています。
単に引用するだけで演算は加えませんが、引数が空白の場合に表示が何も出ないように=IF関数を入れています。
そして難点は、引数のあるシートは１行単位、使用するシートは２行単位の表になっていることです。

引数のシートのデータ構成
A10 A11 A12 B11 B12 C11 C12 D11 D12
A20 A21 A22 B21 B22 C21 C22 D21 D22
・
・
・
A500 A5001 A5002 B5001 B5002 C5001 C5002 D5001 D5002

使用するシートの様式
１行目 A10 A11 B11 C11 D11
２行目 結合 A12 B12 C12 D12
３行目 A20 A21 B21 C21 D21
４行目 結合 A22 B22 C22 D22

A10　A20　は上下セルを結合しています。

このような場合、左クリック＋ドラッグで行単位のコピーを行うと、拾ってくるデータが飛び飛びになってしまします。
行数が多く、数式の引用セル位置の数値をいちいち手入力や置換処理で修正していると非常に手間がかかるので、一気に数式を入力する方法はないでしょうか。

よろしくご指導お願いします。

回答No.2

zap35 · ベストアンサー

引用元のシートが１行目からデータがあるとします
「使用するシート」のA1セルに次の式をコピー
=OFFSET(Sheet1!$A$1,INT((ROW()-1)/2),0)

「使用するシート」のB1セルに次の式をコピーし、B2にもコピー
=OFFSET(Sheet1!$A$1,INT((ROW()-1)/2),(COLUMN()-1)*2-ISODD(ROW()))
更にB1:B2をE列までコピーしてください。
最後に１行目と２行目をコピーして、下方向に行単位に貼り付けます。

もし引用元のデータ開始行が１行目でないときは「Sheet1!$A$1」の部分を「Sheet1!$A$5」のように実際のデータ開始行のA列のセルアドレスに変更します。

お礼

ご回答ありがとうございました。
２行目に引用するA22,B22・・・の数式を「INT((ROW()-2)/2)」とアレンジすることで、次行以下へコピーできました。
２行単位のドラッグで、一気に10OO行のデータシートが出来上がりました。
お二人のアドバイスはパーフェクトです！
本当にありがとうございました。

回答No.3

suekun

あっごめんなさい。途中で送ってしまいました。

一行置きの複写って考えて良いでしょうか？

参照先　
A1 A2 A3 A4 A5
コピー先
A1 A3 A5 A7 A9
という事でしたら先ほどの数式で可能になります。
ROW関数で相対参照の行数を2で割る事によりOFFSETの移動量を
調整します。

ただ、質問を理解してないのですが、どうも単純な法則で
ないきがしますね。＾＾；

回答No.1

suekun

=IF(OFFSET($A$1,INT(ROW(A1)/2),0)="","",OFFSET($A$1,INT(ROW(A1)/2),0))

お礼

素早いご回答ありがとうございます。
大変参考になりました。