複数シートにある列を削除

只今マクロの勉強中（超初心者）で簡単な質問なので
恐縮なんですが、

一つのブックに複数のシートがあります。
全部のシートのＡ列を一括で削除したいのですが、
マクロの記述はどのようになるでしょうか。

No.4 ベストアンサー 回答者： taocat 回答日時： 2005/02/23 10:56

こんにちは。

以下のようにします。

---------------------------------------------

Sub Test()
　Dim Sht As Worksheet
　For Each Sht In Worksheets
　　Sht.Columns(1).Delete
　Next
End Sub

-----------------------------------------------

Selectなるべくしないようにしましょう。
以上です。
　

この回答への補足

ありがとうございます。
同じことをするのにも、色々な書き方があるんですね。

補足日時：2005/02/24 11:36

No.3 回答者： hirumin 回答日時： 2005/02/23 10:48

単純なものですが参考になれば幸いです。

Sub sample()
Sheets.Select
Columns("A:A").Delete Shift:=xlToLeft
End Sub

この回答へのお礼

ありがとうございます。

お礼日時：2005/02/24 11:44

No.2 回答者： yans11 回答日時： 2005/02/23 10:46

消えるだけならこれでできます。

Sub Macro1()
For i = 1 To Worksheets.Count
Worksheets(i).Select
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Next i
End Sub

マクロの記録をしながら勉強すると分かり易いですよ。
勿論、ヘルプも活用して下さいね。

この回答へのお礼

ありがとうございます。

お礼日時：2005/02/24 11:59

No.1 回答者： salza 回答日時： 2005/02/23 10:45

シート名を1個1個入力してもいいのであればこれで。

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft

シート名の入力をしない方法は他の方へおまかせ～。

この回答へのお礼

ありがとうございます。
シート名を入力する方法はやっぱり手間がかかるので、
他の方の方法にします。

お礼日時：2005/02/24 13:26