EXCELで列のデータを行に移行したい

質問

よろしくお願いします
EXCEL2000を使用しています
現状ですが
A・B・C・Dの条件に合うデータが最大20個（F～Y）入力してあります
必ず1つのデータが条件に当てはまるのでFに空欄はないです
A・B・C・Dの条件は200行あります

希望の状態は
F～YのデータをAに書き出し
（最小1個×200行＝200行　最大20個×200行＝4000行）
それぞれの値の条件A～Dのデータが
そのデータのB～E入るようにしたいです

VBを利用すれば早いと言うことはわかるのですが
作れないので質問させていただきました
よろしくお願いします

回答No.1

cafe_au_lait · ベストアンサー

新シートに書き出す
重複データはない
1行目はタイトル行

上記が全てYESの場合、

新シートのA2:=IF(OFFSET(元のシート!$F$2,INT((ROW(A2)-ROW($A$2))/20),MOD(ROW(A2)-ROW($A$2),20))="",NA(),OFFSET(元のシート!$F$2,INT((ROW(A2)-ROW($A$2))/20),MOD(ROW(A2)-ROW($A$2),20)))
新シートのB2:=IF(ISNA(A2),NA(),INT((ROW(A2)-ROW($A$2))/20)+ROW($A$2))

B4000までコピーします。

A2:B4000をコピー、同位置に形式を選択して貼り付け→値

A2:B4000を選択し、編集→ジャンプ→セル選択→数式→エラー値のみチェック→OK

選択したセルを削除（上に移動）します。

新シートのC2:=INDEX(元のシート!B:B,$B2)

F列の、データがある行までコピーします。

先ほどと同様に値貼り付けを行い、B列を削除します。

お礼

ありがとうございます
出来ました