Alt+Shift+↑を一括で行うには、何か方法はありませんか。

5000行の氏名にAlt+Shift+↑をして、ふりがなをふりたいのですが、今は、1行1行Alt+Shift+↑の操作をしています。5000行まとめて、Alt+Shift+↑する方法はないでしょうか。
よろしくお願いいたします。

質問者からの補足コメント

• 

  ご回答をありがとうございます。
  はい、EXCELです。
  マクロ（ＶＢＡ）でも良いです。
  よろしくお願いいたします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2017/08/29 17:26

No.1 回答者： あねあねあね 回答日時： 2017/08/29 15:44

使っているテキストエディタは何ですか？

sakuraならAlt+Ctrl+Endで最終行まで一度に選択できますよ。

この回答へのお礼

説明不足の質問で、申し訳ありません。
ご回答をいただき、ありがとうございました。

お礼日時：2017/08/30 10:19

No.2 回答者： GooUserラック 回答日時： 2017/08/29 16:10

Excelの事ですよね？

確認の意味で１つずつしか出来ないようになっているのではないかと思います。
とりあえず確認は不要なので、ふりがなを一挙にふりたいというならマクロ（ＶＢＡ）を使えば割と簡単に出来ますがそれでも良いですか？

No.3 ベストアンサー 回答者： CoalTar 回答日時： 2017/08/29 17:38

対象の列はA列として、下準備

A列を選択し、ホームのふりがなの表示

1. [Alt]+[F11]VBE
2. [Ctrl]+[G]イミディエイトウィンドウ
Range("A2:A5000").SetPhonetic
と入力(コピペ)後 [Enter]
[×]

ふりがなは正確でない可能性が高いので、
範囲は適宜変更し、確認してください

この回答へのお礼

ご回答をありがとうございます。
この方法で行い、できました。
大変感謝しています。ありがとうございました。

お礼日時：2017/08/30 10:18

No.4 回答者： GooUserラック 回答日時： 2017/08/29 18:08

コードは以下のたった３行です。

---------------------------------------
Sub フリガナSet()
Selection.SetPhonetic
End Sub
---------------------------------------
※ 使用方法
事前に対象を選択状態にしておいて「フリガナSet()」を呼び出すだけです。

この回答へのお礼

ご回答をいただき、ありがとうございました。
解決しました。

お礼日時：2017/08/30 10:19