行列を入れ替えて貼り付けの自動化

Ａ列に数値データ、Ｂ列に文字データが入力されています。
これをコピーして形式を選択して貼り付けで行列を入れ替えて、1行目のＡ～Ｊ列に数値、Ｋ～Ｔ列に文字と10個単位でどんどん移動をかけます。
データ数は3000件以上ありできれば上記作業を自動化したいのですが・・・。
みなさんどうかお願い致します。

No.1 回答者： imogasi 回答日時： 2003/05/15 06:33

作業が良く呑み込み出来ません。

第１回Ａ１：Ａ１０－－－＞別シート（？）Ａ１：Ｊ１
　　　Ｂ１：Ｂ１０－－－＞　　　　　　　Ｋ１：Ｔ１
第２回Ａ１１：Ａ２０（？）－－－＞？？？
　　　Ｂ１１：Ｂ２０（？）－－－＞？？？
第３回？？？？
３０００件とはＳｈｅｅｔ１（例）に約３０００行のデータがあるてことですか。
表にデータがあるのは、Ａ１：Ｂ３０００ですか。

この回答への補足

早朝レスありがとうございますm(_ _)m。
一つのシートに3000行です、データがあるのはＡ1：Ｂ3000ですが現在はこれを

１．行の挿入で数行空ける（仮に5行挿入すればデータはＡ6：Ｂ3006にずれます）
２．Ａ6：Ａ15をコピーし、形式を選択して貼り付けでＡ1：Ｊ1へ行列を入れ替えて貼り付け
３．Ｂ6：Ｂ15をコピーし、形式を選択して貼り付けでＫ1：Ｔ1へ行列を入れ替えて貼り付け
４．貼り付けが済んだＡ6：Ｂ15を削除
５．上記１～４で１つのセット、次はＡ16：Ａ25をコピーしてＡ2：Ｊ2へ、Ｂ16：Ｂ25をコピーしてＫ2：Ｔ2へ、コピーが済んだＡ16：Ｂ25は削除・・・と繰り返していく
６．だんだんとコピー元と貼り付け場所が離れていくので時々行削除して作業しやすいようにしなければいけない。見た目としては2列の細長いデータが20列の長方形に変わっていく。

上記のように処理しています

補足日時：2003/05/15 12:25