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

質問

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

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

回答No.4

taocat · ベストアンサー

こんにちは。
以下のようにします。

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

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

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

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

補足

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

回答No.3

hirumin

単純なものですが参考になれば幸いです。
Sub sample()
Sheets.Select
Columns("A:A").Delete Shift:=xlToLeft
End Sub

お礼

ありがとうございます。

回答No.2

yans11

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

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

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

お礼

ありがとうございます。

回答No.1

salza

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

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

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

お礼

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