現在のワークブック内のアクティブなシートを最後尾または先頭に移動するにはどうすればよいですか？

アクティブなシートをワークブックの最初または最後に移動することで、複数のシート間でのナビゲーションが容易になります。この記事では、Excelでアクティブなシートを現在のワークブックの最後尾または先頭に移動する方法を紹介します。

「移動またはコピー」を使用して、アクティブなシートを現在のワークブックの最後尾または先頭に移動する
VBAコードを使用して、アクティブなシートを現在のワークブックの最後尾または先頭に移動する
驚くべきツールを使用して、簡単にアクティブなシートを現在のワークブックの最後尾または先頭に移動する

「移動またはコピー」を使用して、アクティブなシートを現在のワークブックの最後尾または先頭に移動する

Excelの「移動またはコピー」機能を使用すると、アクティブなシートを現在のワークブックの最後尾または先頭に移動できます。

1. アクティブなシート上で右クリックし、コンテキストメニューから「移動またはコピー」を選択します。スクリーンショットをご覧ください：

2. 「移動またはコピー」ダイアログボックスで、アクティブなシートをすべてのシートの前に移動するには、「 Before sheet」リストの一番上のシートを選択します。アクティブなシートを最後尾に移動するには、下にスクロールして「Before sheet」ボックス内の「末尾に移動」オプションを選択します。最後に「OK」ボタンをクリックします。スクリーンショットをご覧ください：

アクティブなシートを先頭に移動する	アクティブなシートを最後尾に移動する

これで、アクティブなシートはすぐに現在のワークブックの最後尾または先頭に移動されます。

VBAコードを使用して、アクティブなシートを現在のワークブックの最後尾または先頭に移動する

次のVBAコードを実行すると、アクティブなシートを現在のワークブックの最後尾または先頭に移動できます。

1. 移動したいワークシートをアクティブにして、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、「挿入」>「モジュール」をクリックします。次に、以下のコードをモジュールウィンドウにコピーして貼り付けます。

VBAコード: 現在のワークブックの最後尾にアクティブなシートを移動する

Sub MoverToEnd()
	ActiveSheet.Move _
	After: = ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
End Sub

Sub MoverToFront()
	ActiveSheet.Move Before: = ActiveWorkbook.Sheets(1)
End Sub

3. コードを貼り付けた後、F5キーを押してコードを実行します。これで、アクティブなシートがすぐに現在のワークブックの最後尾または先頭に移動されます。

驚くべきツールを使用して、簡単にアクティブなシートを現在のワークブックの最後尾または先頭に移動する

Kutools for Excelの「すべてのシートを並べ替える 」ユーティリティを使用すると、アルファベット順や色でワークシートを並べ替えられるだけでなく、アクティブなシートを現在のワークブックの先頭、最後尾、または指定された位置に簡単に移動することもできます。

1. 「Kutools Plus」>「ワークシート」>「すべてのシートを並べ替える」をクリックします。スクリーンショットをご覧ください：

2. 「すべてのシートを並べ替える」ダイアログボックスで、アクティブなシートはデフォルトで選択されており、次の操作を行う必要があります：

注釈：

関連記事：

• Excelで指定された/現在のシート以外のすべてのシートを削除するにはどうすればよいですか？
• Excelで複数/すべてのシートをCSVまたはテキストファイルとして保存、エクスポート、または変換するにはどうすればよいですか？
• Excelで最後にアクティブだったシートに戻るにはどうすればよいですか？