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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
フォルダ内の複数ファイルから特定のシートを一括削除
その他(Microsoft Office)
-
【ExcelVBA】指定のシート以外を削除する方法
Visual Basic(VBA)
-
Excelで、複数ブックの複数シートを削除するマクロを教えて下さい
Excel(エクセル)
-
-
4
指定文字が含まれるシートを削除したいです
Visual Basic(VBA)
-
5
VBAで指定シート以外の選択
Visual Basic(VBA)
-
6
特定のシート名のシートのみ除外して、それ以外のシート名のシートをすべて集約する方法(VBA)
Excel(エクセル)
-
7
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
8
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
9
VBA 存在しないシートを選択した時にエラーメッセージを表示するには?
Visual Basic(VBA)
-
10
複数ファイルから特定シートのコピー
Excel(エクセル)
-
11
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
12
フォルダ内の全てのファイルに貼り付けを行うマクロを作りたい
Visual Basic(VBA)
-
13
Excel VBAである特定文字列を含むシート名例えば「りんご(1)」
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のシートをフォ...
-
括弧があるとHYPERLINKで飛べな...
-
原付 レッツシート開け方
-
車のシートでおもらし
-
エクセルVBA 4行飛ばしで転記す...
-
Excel複数シートから日付と文字...
-
シートベルトの固定解除
-
バイクのシートを取り替えても...
-
液晶テレビの保護シートの上手...
-
Excel VBA シート名変更時、重...
-
ドライブレコーダーのSDカード...
-
水の染み込んだバイクのシート...
-
EXCEL VBA 特定シート以外の...
-
ポケットにミシンでワッペンを...
-
電車のシートって何でこんな暑...
-
マグネットシートって・・・
-
ホワイトボードに綺麗な文字を...
-
ポップコーンの捨て方
-
テントのグラウンドシートの自作
-
BIKEのシートの取り外し方を教...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のシートをフォ...
-
括弧があるとHYPERLINKで飛べな...
-
電車のシートって何でこんな暑...
-
原付 レッツシート開け方
-
水の染み込んだバイクのシート...
-
シートベルトの固定解除
-
Excel複数シートから日付と文字...
-
ポップコーンの捨て方
-
BRIDEのシート張り替えってでき...
-
車のシートでおもらし
-
リアシート無しで運転してたら...
-
ポケットにミシンでワッペンを...
-
エクセルVBA 4行飛ばしで転記す...
-
メルセデスベンツ
-
【Excel Online】Excelデータの...
-
癒着してしまったテレビの液晶...
-
【Excel Online】特定シートの...
-
フォルツァ バッテリーを外して...
-
クルマのこのシートは走りのイ...
-
アルファード 7人乗りから8人...
おすすめ情報