２つの表を交互に合体させたい！

２つの表を交互に合体させて、１つの表にさせる
やり方はあるでしょうか？？

　ＡＡＡＡＡ　ＢＢＢＢＢ
　ＡＡＡＡＡ　ＢＢＢＢＢ
　　　　　　↓
　　　　ＡＡＡＡＡ
　　　　ＢＢＢＢＢ
　　　　ＡＡＡＡＡ
　　　　ＢＢＢＢＢ

イメージはこんな感じです。
今セルの行間は空いてません。行間さえ１行ずつ
空けられれば
形式を選択して貼付け　→　空白セルを無視して貼付で
合体できるのですが、表がかなりの数なので、１行ずつ
行挿入するのは時間がかかってしまいます。
何かいい案がありましたらお願いします。

No.6 ベストアンサー 回答者： losedog 回答日時： 2003/03/13 08:07

並び替えを使う方法でよろしければ。

Sheet1とSheet2の２つのシートがあり、そのＡ列にデータがあるとして、

（１）Sheet1とSheet2のＢ列に、１，２，３・・・・（１から始まる連続データ）をオートフィルで入力。

（２）Sheet1のＣ列に、１，１，１・・・・と入力。

（３）Sheet2のＣ列に、２，２，２・・・・と入力。

（４）Sheet2のＡ～Ｃ列のデータ（タイトル行がある場合は、それを除く）をコピーし、Sheet1のデータの下に貼付。

（５）Sheet1をＢ列とＣ列で並び替えをする。

これで、ご希望の形になるかと思います。

この回答へのお礼

素晴らしい回答ありがとうございました。
お陰で１０００以上の表を短時間で変更することが
できました。こんな簡単に並べ替えが出来たんですね。
目から鱗でした。

お礼日時：2003/03/24 14:23

No.5 回答者： imogasi 回答日時： 2003/03/12 23:30

例えばA1:A10にa,b,c,・・・jが入っているとして、

B列にB1からa,s,b,s・・・（ｓは空白）を入れる方法。
B1に式を
=IF(ISEVEN(ROW(A1)),"",INDEX($A$1:$A$10,INT(ROW(A1)/2)+1))といれ、A列の行数の２倍行数に複写してください。＄A$10は、実際ではA列最下行を絶対番地で入れてください。

No.4 回答者： k-mucho 回答日時： 2003/03/12 20:38

こんばんは。

行数がどれくらいあるのかは知りませんが、次の方法を使えば比較的簡単に1行ずつ行間を開けることが出来ると思います。

方法は、
1.シートの右端に2列空白列を挿入する。
2.その列のセルに互い違いに文字を入力する。
(例)
Ａ　Ｂ
＊
　　＊
＊
　　＊
(2行分入力すれば、後はフィルで最終行までドラッグすれば良いと思います。)
3.その2列を選択し、「編集」→「ジャンプ」→「セル選択」をクリックする。
4.「定数」を選択し、OK。
5.「挿入」→「行」を選択。

これで1行ずつ行が空いたと思います。
後はお書きの様にすれば良いと思います。
一度お試しください。

No.3 回答者： Good-S15 回答日時： 2003/03/12 19:15

こんばんは。

ナイ！と思います。

私だったら、返答を待つより１行づつ作成していきます。
（かなりの数ってどれくらいあるのでしょうか？）

表２つをコピー＆ペーストするにしても２分だと仮定して、
１００の表なら、１００分（１時間４０分）じゃないですか？！
ExcelVBAで組むにしろ、どのセルからどのセルまで等の情報が固定でないならば、
それを作成する時間、デバッグ、検査？することで、１００分以上は、かかりそうだと思いますが。。。

No.2 回答者： wildcard 回答日時： 2003/03/12 19:02

あの～、Excelのご質問ですよね？

仮に２つのシート名をSheetA,SheetBとした場合、下記のようなデータにしたいと言うことでしょうか？

SheetAの1行目
SheetBの1行目
SheetAの2行目
SheetBの2行目
SheetAの3行目
SheetBの3行目


もしそうなら、SheetA,SheetB双方ともC列までデータがある場合、D列の全ての行に

SheetAには、=ROW()*10
SheetBには、=ROW()*10+1

と言う計算式を設定してください。（一つのセルに入力し、後はコピーで大丈夫です）

次に、SheetAのD列をコピーして、SheetAのD列に値のみを貼り付けてください。
SheetBでも同様の作業をして下さい。

あとは、SheetAの最後行の次行にSheetBのデータを全て貼り付けて、D列でソートすれば並び変わりますよ。

No.1 回答者： the845t 回答日時： 2003/03/12 18:43

これはExcelの話ですか？

何のソフトを利用した話なのか明記すれば回答がつきやすいと思います。

この回答への補足

申し訳ありません。エクセルの話です。

補足日時：2003/03/12 20:56