マクロを書き変えたいのですが、

質問

マクロを書き変えたいのですが、
現在使用してる　下記のマクロがあるのですが、
このマクロに　Sheet１～Sheet18までの　セル　E12・E14・F14データーを消す式を足したいのですが、
どのように書いたらよいでしょうか？

Sub 打ち出しデーター削除()
'
' 打ち出しデーター削除 Macro
' 打ち出しシートの時間・判定を　クリアーにする。
'

'
Sheets("打 ち 込 　用 ").Select
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.ClearContents
Sheets("★スタッフ一覧").Select
Range("A1").Select
End Sub

あと　シート数を指定しない場合も知りたいのです。
どなたか　力を貸してください。

回答No.5

mar00 · ベストアンサー

何度もすいません。
Sheets(i).Range("B2,E12,E14,F14").ClearContents
E12,ではなく、B12を消してください。

回答No.6

imogasi

シート名がA,B、Cの３つのシートの「E12・E14・F14データーを消す」
Sub test02()
sn = Array("A", "B", "C")
For i = 0 To UBound(sn)
Worksheets(sn(i)).Range("E12,E14,F14").ClearContents
Next i
End Sub
とか
ーーー
Sub test03()
Dim sn
Set sn = Sheets(Array("A", "B", "C"))
For Each ws In sn
ws.Range("E12,E14,F14").ClearContents
Next
End Sub
などで出来るようだ。
質問振りからして、これらを使うには、勉強がいると思う。
エクセルの「作業グループ」という機能を、まず知ってないとならない。
Googleででも照会のこと。
シートはインデックス番号でも指定できるが、シートタブの場所を動かすとインデックスが変わるので、名前を見据えて考える。

回答No.4

mar00

訂正です。
Sheets(i).Range("B2,E12,E14,F14").ClearContents
E12,は消してください。

回答No.3

mar00

Sub Macro1()　ここはいらないです。
For i = 1 To 18
Sheets(i).Range("B2,E12,E14,F14").ClearContents
Next i
End Sub　ここもいらないです。

回答No.2

mar00

Selection.ClearContents
この間にマクロをいれます。
Sheets("★スタッフ一覧").Select

注:For 1 to 18　はsheet1が先頭にあってsheet18まで連続している事を
前提としています。
もし、Sheets("打 ち 込 　用 ")用が先頭にあって、2番目以降にsheet1～sheet18が
あるような場合は　For 2 to 19　にして下さい。

補足

御手数おかけします。
うまくゆかないのですが、
こちらでOKでしょうか
Sub 打ち出しデーター削除()
'
' 打ち出しデーター削除 Macro
' 打ち出しシートの時間・判定を　クリアーにする。
'

'
Sheets("打 ち 込 　用 ").Select
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.ClearContents
Sub Macro1()
For i = 1 To 18
Sheets(i).Range("B2,E12,E14,F14").ClearContents
Next i
End Sub

Sheets("★スタッフ一覧").Select
Range("A1").Select
End Sub

回答No.1

mar00

Sub Macro1()
For i = 1 To 18
Sheets(i).Range("B2,E12,E14,F14").ClearContents
Next i
End Sub

'一番最後のシートまでなら18をSheets.countに
'最後から2番目ならSheets.count-1というふうにもできます。

補足

回答ありがとうございます。
遅くなりましてスミマセン
教えていただいたマクロを具体的にどのように足せばよろしいでしょうか？
現在シート名　打ちこみ用と言うシートの任意のセルを消すまくろがありますが、
これにシート１～１８のセルE12・E14・F14・のデーターを消すマクロを
追加したいのですが、
ご協力よろしくおねがいします。