エクセルでシートの挿入をする際シートの最後に

質問

EXEL2003です。
SHEETの1,2,3があったとして、
3の次に新しいSHEETを挿入する方法がありますか？
いつもはSHEET3を右クリックしてメニューの中からシート挿入をしています。
これだとSHEETの2と3の間にSHEET4が挿入されてしまうので、移動しなければなりません。

よろしくお願いします。

回答No.3

imogasi · ベストアンサー

Sub test01()
n = Sheets.Count
Sheets.Add after:=Sheets(n)
End Sub
これをヒョウジュンモジュールに貼り付けて実行。
またはコマンドボタンを貼り付け、イベントプロセジュアーにする。
Private Sub CommandButton1_Click()
n = Sheets.Count
Sheets.Add after:=Sheets(n)
End Sub

アクチブシートのあとの場合
Sub test01()
Sheets.Add after:=ActiveSheet
End Sub

回答No.2

cockerel

編集メニューの中に「シートの移動またはコピー」というアイテムがあります。つまり、これをボタン化してツールバーに貼っておくという方法があります。
ツール＞ユーザ設定＞コマンドタブを開き、左側で編集を選択、右側の「シートの移動またはコピー」をツールバーにドラッグします。アイコン（最初はテキスト）を編集するときは、「選択したボタンの編集」（たとえばにこにこマーク）をクリックします。
使い方：
任意のシートを開いているとき、挿入＞ワークシートを行い、「にこにこマーク」をクリック、末尾へ移動を選択。

常に最後に移動であれば簡単なマクロで作れるので（マクロの記録でも作れます）、新規ワークシートの挿入から末尾へ移動までを記述してボタン化しておくとよいでしょう。

回答No.1

noname#30830

こんにちは。
シートの右側に新しいシートを挿入する場合で、
シートを挿入してから移動の手間を省く場合は、
Ctrlキーを押しながらSheet3のシート見出しをポイントして、
右側へドラッグして、離すと右側に新しいシートが挿入されます
（たぶんシート名がSheet3(2)になっていると思います）。