質問: エクセルのデータ入れ替え エクセルに 1氏名 2電話番号 3住所 4氏名 5電話番号 6住所 と入力されたデータがあります。 これを、 a氏名 b電話番号 c住所 氏名 電話番号 住所 と変換させたいのですが、どうしたら簡単に手っ取り早く 変換出来るでしょうか? かなりの数があるので、手間の掛からない方法を教えて下さい。 また、これを使って印刷をするので、それを考慮した方法で お願いします。
回答: マクロは如何でしょう。 sub test1() dim i as integer, k as integer k = 1 for i = 2 to 4 '人数分+1 cells(i, 2) = cells(k, 1) cells(i, 3) = cells(k + 1, 1) cells(i, 4) = cells(k + 2, 1) k = k + 3 next i end sub ------- for文の4の所を人数分+1にして(例は3人分) 変換の確認をしたら、a列を削除すればok