特定のシートまたはすべてのシートをExcelで最上行にスクロールするにはどうすればよいですか？

特定のシートやワークブック内のすべてのシートを一番上にスクロールしたい場合でも、VBAコードは迅速かつ効率的な解決策を提供します。このガイドでは、簡単なVBAスクリプトを使用してナビゲーションを合理化し、データに集中する方法を説明します。

VBAコードを使用して特定のシートまたはすべてのシートを最上行にスクロールする

VBAコードを使用して特定のシートまたはすべてのシートを最上行にスクロールする

Excelで特定のシートまたはすべてのシートを最上行にスクロールするには、次の手順を実行してください。

1. スクロールしたいワークシートで、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開いてください。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。その後、以下のいずれかのVBAコードをコードウィンドウにコピーして貼り付けてください。

VBAコード：特定のワークシートを最上行にスクロールする

Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub

VBAコード：すべてのワークシートを最上行にスクロールする

Sub Select_A1_On_Activeworkbook()
    Dim xSheet As Worksheet
    For Each xSheet In ActiveWorkbook.Sheets
        xSheet.Activate
        ActiveSheet.Range("A1").Select
    Next
    ActiveWorkbook.Worksheets(1).Activate
End Sub

3. コードウィンドウにVBAコードを入力した後、F5キーを押してコードを実行してください。

アクティブなワークシートまたは現在のブック内のすべてのワークシートがすぐに最上行にスクロールします。