エクセルの全シートのセル位置を左上（A1）に初期化するマクロ

公開日:2023/05/04

エクセルの資料を客先に送るときなど、シートのセル位置を左上に戻しておきたい場合があります。

ですがシート数が多いファイルの場合は、1シートずつセルを選択するのは面倒です。

そんなときは、ファイル内の全シートのセル位置を初期化するマクロを使用すると数クリックで済ませることができます。

Sub resetPosition()
    Dim Ws As Worksheet
    For Each Ws In Worksheets
        Ws.Activate
        Range("A1").Select
    Next Ws
    
    Worksheets(1).Activate
End Sub

ファイル内のすべてのシートをループで回して、Range("A1").SelectでA1セルを選択した状態にします。

ループを抜けたあと、最後に1枚目のシートをアクティブ（＝開いた）状態にします。

ご質問など受け付けています

記事の中でわかりにくかったところ、もっと知りたかったこと、間違っていることなど、何でもお気軽にご連絡ください。

ご連絡は下記フォームを利用いただくか、ツイッターアカウント@flat8migi宛てでもOKです。