ここから本文です

エクセルでシートが300あるもので途中のページを消したいのですが、名前がSheet1~...

アバター

ID非公開さん

2018/10/2517:11:52

エクセルでシートが300あるもので途中のページを消したいのですが、名前がSheet1~300になっているものを20、50、150などを消した時にその消したページ数を除いて順番通りにしたいのですが、

可能でしょうか。1つ1つ名前を変えないとできないですか。説明が分かりづらくて申し訳ありませんが、宜しくお願いします。

閲覧数:
28
回答数:
1
お礼:
250枚

違反報告

ベストアンサーに選ばれた回答

ann********さん

2018/10/2517:31:33

不要なシートを全て削除した後に実行します。

Sub Test()
Dim i
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Name = "Sheet" & i
Next
End Sub

アバター

質問した人からのコメント

2018/10/26 14:02:34

ありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる