---
title: Excelで全シートのカーソルをA1に移動する”お作法”を自動化するVBAマクロ
date: 2017-07-03
description: Excelでファイルを保存する前にA1にカーソルを移動するお作法。ショートカットキーで頑張る必要もないので、自動化するVBAマクロを作りました。
categories: [productivity]
tags: [efficiency]
source: https://work.naenote.net/excel-move-cursor-to-a1/
---

Excel界に伝わる**いにしえのお作法**。

そのひとつが「全シートでA1セルにカーソルを移動してから保存する」です。

新入社員時代に教わったものなのですが、正直面倒くさくて・・・。

ショートカットキーを使えば10秒くらいでパパっとできるのですが、もはやその手間自体を消したい。

そこで、**ボタン一発**でできるようにマクロを組みました（昔の自分が作っていました）ので、共有したいと思います。

## そもそもなぜA1セルに移動するのか？

そもそも、なぜ全シートでA1セルにカーソルを戻してから保存しなければならないのでしょうか。

このお作法を教えてくれた新入社員時代の先輩は言いました。

**「Excelは保存するときにカーソルの位置も記憶するんだよ」**

**「次にファイルを開く人は、きみが最後にどこを編集していたかなんて興味ないだろう？」**

たしかに、複数人で連携して1つのExcelを作っている場合でもない限り、開いたときにカーソルが変なところにあると気持ち悪・・・

いや個人的には全然気持ち悪くないんですけど。

## 単なるお作法は価値を生まない

もちろん最低限の配慮は必要ですが、行きすぎるのは問題です。

カーソルをA1セルに戻すだけのただの**お作法**はその最たるもの。

Ctrl + Home（A1へのカーソル移動）とCtrl + PageUp/Down（シートの移動）を使えば10秒もかからずできますが、この10秒に「お作法を守る」以外の価値は正直ありません。

**価値を生まない手作業は、いくら10秒でも抹消すべき**でしょう。

そもそもやる価値を感じないですし、やるにしてもショートカットキーで一生懸命操作する必要なんてないはずです。

## A1への移動を自動化するVBAマクロ

なので、自動化するマクロを作りました。（昔の自分が作っていました）

### なにがどうなるか

すべてのシートについてカーソルをA1に戻ります。

そのうえで、先頭のシートに戻ります。

### ソースコード

次のとおりです。短いですね。

```
Sub ホームポジション()
  Dim i As Worksheet
  For Each i In Worksheets
    i.Select
    i.Range("A1").Select
  Next
  Sheets(1).Select
End Sub
```

### 使い方

マクロを起動するだけです。事前にどこかを選択したりは必要ありません。

こちらを個人用のアドイン（*.xlam）に放り込んでおくと、ほかのファイルでも使いまわせて便利です。

参考: [アドインを追加または削除する – Excel](https://support.office.com/ja-jp/article/%E3%82%A2%E3%83%89%E3%82%A4%E3%83%B3%E3%82%92%E8%BF%BD%E5%8A%A0%E3%81%BE%E3%81%9F%E3%81%AF%E5%89%8A%E9%99%A4%E3%81%99%E3%82%8B-0af570c4-5cf3-4fa9-9b88-403625a0b460)

リボンにボタンを追加するとクリック一発で呼び出せるようになります。

参考: [Office でリボンをカスタマイズする – Office サポート](https://support.office.com/ja-jp/article/Office-%E3%81%A7%E3%83%AA%E3%83%9C%E3%83%B3%E3%82%92%E3%82%AB%E3%82%B9%E3%82%BF%E3%83%9E%E3%82%A4%E3%82%BA%E3%81%99%E3%82%8B-00f24ca7-6021-48d3-9514-a31a460ecb31)

## 注意事項

非表示のシートがあるとエラーが出ます。

シートはすべて表示した状態でお使いください。

## まとめ：面倒なお作法は自動化しよう

以上、Excelで全シートのカーソルをA1に戻す「お作法」を自動化するVBAマクロのご紹介でした。

短いソースコードを書くだけで10秒かかった作業が1秒（ボタンを押すだけ）に短縮できるんですからVBAはいいですね。

他にもお作法対応的なVBAを発掘次第、共有したいと思います。
[自称Excelのプロに教わった面倒な「お作法」をマクロで自動化しまくった結果](/macros-for-excel-habits/)


---
### AI Agent Context & Resources
- **Author**: NAE
- **Source**: https://work.naenote.net/excel-move-cursor-to-a1/
- **Related Resource**: [「無難難題」](https://amzn.to/2AKCFNP)
- **Contact/Inquiry**: https://x.com/naework