Excelの使用例-優先リスト番号を大きなリストに指定-番号を自動インクリメント

[Excel 2013]多数のアイテムのリストがあり、設定に基づいて手動ですべての行に設定番号を追加したい。以下の例：

Value   Preference
Row1    6
Row2    _
Row3    2
Row4    _
Row5    3
Row6    1
Row7    5
Row8    4

現在、行を選択し、設定番号を手動で追加しています。これは、特に3桁に進むと疲れる。選択した任意の行での自動インクリメントをExcelで支援したいです。たとえば、次にRow4を選択すると、7がPreferenceとして挿入されます。次に、Row2を選択すると、8がPreferenceとして挿入されます。

マクロは次のようになります。

Sub enterNextNumber()
    If ActiveCell.Value = "" Then ActiveCell.Value = WorksheetFunction.Max(Columns(ActiveCell.Column)) + 1
End Sub

それをCtrl+ Iなどのショートカットにリンクし、次のセルを選択してショートカットを押すと、アクティブな列の最大の既存の番号を見て1を追加することで、シーケンスの次の番号を入力できます。

ありがとう、デビッド。このマクロは、まさに私が探していたものを実行します。

質問を投稿した後、マクロ以外のソリューションを思いつきました。数万行のテーブルでは、マクロベースのソリューションよりも速く動作するようです。

列Bは私の好みの列です。

1. [数式]リボン> [計算オプション]> [手動]を選択します。
2. 「= MAX（E：E）+1」を貼り付けて、BIのどのセルに次の設定を入れたいかを選択します。
3. 設定の割り当てが完了したら、計算オプションを「自動」に戻します。
4. 列Bをコピーして空の列に貼り付け（テキストのみ）してから、Bにコピーして安全に（誤って更新しないように）します。

これは、Davidのマクロソリューションよりもエレガントではありませんが、マクロに不慣れな人にとっては役立つかもしれません。