エクセルにて複数セルの並び替え

質問

こんにちは、エクセルについて教えてください。列はA～Hまで、行は1～200行ほどに値が入っています。
例えばValueが以下のようだとします。

A1 B1 C1 D1 E1 F1 G1 H1
A2 B2 C2 D2 E2 F2 G2 H2
...
これらのValueを、別のSheetに以下のように並び替えたいのですが、

A1 B1
C1 D1
E1 F1
G1 H1
A2 B2
C2 D2
E2 F2
G2 H2
A3 B3

...と、これがA200～H200の行分まで。なのでPaste後は800行になります。どうにかマクロか何かで簡単に
出来ないかと思い、どなたかご教授いただければと思います、よろしくお願いします！

回答No.1

noname#204879 · ベストアンサー

「例えばValueが以下のようだとします」と示されているデータが Sheet1 にあると仮定します。
「別のSheet」の任意のセルに次式を入力します。
　　=OFFSET(Sheet1!A$1,(ROW(A1)-1)/4,MOD((ROW(A1)-1)*2,8))
その右隣のセルに次式を入力します。
　　=OFFSET(Sheet1!A$1,(ROW(A1)-1)/4,MOD(ROW(A1)*2-1,8))
上の２つのセルをズズーッと下方にドラッグ＆ペーストしてみてください。

お礼

早速のご回答ありがとうございます！マクロじゃなくても出来るんですね、しかもただPasteするだけでいいようにしていただいてありがとうございます♪これでサクッと片付けようと思います。

回答No.2

shikisaito

元のシートがSheet1の場合、
「別のSheet」のA1:B800セルを選択して（A1セルがアクティブ状態）、
「=INDEX(Sheet1!$A$1:$H$200,INT((ROW()+3)/4),MOD(ROW()*2-2,8)+COLUMN())」を
入力して、[Ctrl]+[Enter]。

お礼

早速のご回答ありがとうございます！
こちらは同じ数式で対応できるんですね、スバラシイです♪今後の参考にさせていただきます、また機会がありましたらどうぞよろしくお願いします～。