各列を各シートに振り分けるには

Ａ列を新しいシートに
Ｂ列を新しいシートに
Ｃ列を新しいシートに・・・

というふうに、各１列を各シートに振り分ける方法は
ありますでしょうか。

マクロ記録をしてみたのですが自分では上手くいかなくて；

No.1 回答者： kybo 回答日時： 2010/03/12 11:13

特に難しくはありません。

以下のようにしてみてはどうでしょうか？

Sub macro()
Dim I As Integer
With ActiveSheet
For I = 1 To .Range("IV1").End(xlToLeft).Column
.Columns(I).Copy
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
Next I
End With
End Sub

この回答へのお礼

ご親切にありがとうございます。

お礼日時：2010/03/12 20:36