![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
Sub Sample()
Dim Sh As Worksheet
For Each Sh In Sheets
If Not (Sh.Name = "TEMP1" Or Sh.Name = "TEMP2") Then
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End If
Next
End Sub
質問とは逆の判定のしかたですが、これではどうでしょうか?
No.3
- 回答日時:
こんにちは。
私は、#1 さんので十分だと思いますが、あえて、私が書かせていただくとすれば、こうなるのではないかと思います。
Sub SpecifiedSheetsDelete()
Dim sh As Object
For Each sh In ActiveWorkbook.Sheets
If ActiveWorkbook.Sheets.Count = 1 Then Exit For
If Not StrConv(sh.Name, vbUpperCase) Like "TEMP[12]" Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
Next
End Sub
ただ、
(1) 消したくないシート:TEMP1、TEMP2の2シート
(2) 消したいシート:1、2、3....といった連番シート
一体、どちらなのかは、多少分らない部分があります。
>(VBAで作成したシート)
というからには、ある程度、規則を持って作ったのでしょうから、その裏返しをすればよいだけです。
(1)
If Not StrConv(sh.Name, vbUpperCase) Like "TEMP[12]" Then
(2)
If IsNumeric(sh.Name) Then
ということになりますね。
No.2
- 回答日時:
(1)削除するシートの数が2-30までなら
CTRLキーを押しながら、マウスで削除するシートタブをクリックして、
Sub test01()
ActiveWindow.SelectedSheets.Delete
End Sub
を実行する。
(2)削除するシートタブを集めておいて(残すシートを範囲外に
ドラッグしておいて
Sub test02()
MsgBox Sheets("東京").Index
For i = 1 To Sheets("東京").Index
Sheets(1).Delete
Next i
End Sub
抹消するシートのシートタブのかたまりの最右のシート名が東京であった場合の例。
(3)削除シート数が、少ないときは
Sub test03()
Sheets(Array("Sheet31", "Sheet30", "Sheet24")).Select
Sheets("Sheet31").Activate
ActiveWindow.SelectedSheets.Delete
End Sub
のようなほうほうもある。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) Excel VBA シートを追加後に余分なシートを削除する、の意味 21 2022/05/19 22:46
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/25 11:42
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Excel(エクセル) Excel 散布図グラフ 外れ値 セル番地参照方法 4 2022/04/19 18:56
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
フォルダ内の複数ファイルから特定のシートを一括削除
その他(Microsoft Office)
-
【ExcelVBA】指定のシート以外を削除する方法
Visual Basic(VBA)
-
Excelで、複数ブックの複数シートを削除するマクロを教えて下さい
Excel(エクセル)
-
-
4
VBAで指定シート以外の選択
Visual Basic(VBA)
-
5
特定のシート名のシートのみ除外して、それ以外のシート名のシートをすべて集約する方法(VBA)
Excel(エクセル)
-
6
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
7
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
8
VBA 存在しないシートを選択した時にエラーメッセージを表示するには?
Visual Basic(VBA)
-
9
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
10
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
11
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
12
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
13
フォルダ内の全てのファイルに貼り付けを行うマクロを作りたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
括弧があるとHYPERLINKで飛べな...
-
エクセルで複数のシートをフォ...
-
エクセルVBA 4行飛ばしで転記す...
-
Excel VBA シート名変更時、重...
-
ドライブレコーダーのSDカード...
-
Excel複数シートから日付と文字...
-
XR250BAJAのシートのはずし方を...
-
マグネットシートって・・・
-
原付 レッツシート開け方
-
建築模型、カーブの作り方
-
クロネコメール便で株主優待券発送
-
車のシートでおもらし
-
不透明の窓ガラスの内側へ、断...
-
VBA エラー回避を教えてくださ...
-
フォルツァ バッテリーを外して...
-
ノートe12ガソリン
-
レスキューシート使用した人
-
ポップコーンの捨て方
-
(手芸)布にラミネートシートを...
-
ホワイトボードの復活
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
括弧があるとHYPERLINKで飛べな...
-
エクセルで複数のシートをフォ...
-
原付 レッツシート開け方
-
建築模型、カーブの作り方
-
Excel VBA シート名変更時、重...
-
エクセルVBA 4行飛ばしで転記す...
-
Excel複数シートから日付と文字...
-
フォルツァ バッテリーを外して...
-
車のシートでおもらし
-
シートベルトの固定解除
-
水の染み込んだバイクのシート...
-
ポップコーンの捨て方
-
車のシートがへたってきました...
-
マクロの別シートのデータ振り...
-
リアシート無しで運転してたら...
-
ジュニアシート ブースターシー...
-
マグネットシートって・・・
-
防風目的で使おうと写真の白い...
-
台所流しの水音を小さくしたい
-
EXCEL VBA 複数のシートに同じ...
おすすめ情報