Excel 2013-2000から65000までの数値を入力するには、ドラッグフィルハンドルマウスメソッドを使用せずに

Excel 2013で2000〜65000の数値を入力する必要があり、フィルハンドルとドラッグの使用は非常に長いプロセスです。

これを行う別の方法はありますか？

A1に「2000」と入力します。、式A2 = A1 + 1を入力し、第1保持後、A3を選択することにより、A65000まで、A3にこの数式をコピーシフトし、シフトを解放し、そしてA65000にマウスでスクロールし、セルをクリックします。数式を貼り付けます。これにより、必要なものが得られます。

数式を後で値に変換する場合は、すべてのコピーを再度選択し、値として貼り付けます。

1. 最初のセルを開始値に設定します。
2. その下のセルをCellAbove + 1に設定します。
3. 2番目のセルをクリックして選択します。
4. 下にスクロールして、終了セルをクリックします。
5. Ctrl-D（フィル、ダウン）
6. Ctrl-C（コピー）
7. Ctrl-Alt-V（特殊貼り付け）
8. [値]を選択し、[OK]をクリックします

これはBrute Squadが使用する方法ですが、動作します。

これはVBAを使用したマクロです。

Sub megafiller()
    firstvalue = 2000
    lastvalue = 65000
    firstcellrow = 1
    firstcellcolumn = 1
    Dim wks As Worksheet
    Set wks = ActiveSheet
    thisrow = firstcellrow
    For j = firstvalue To lastvalue
        wks.Cells(thisrow, firstcellcolumn) = j
        thisrow = thisrow + 1
    Next j
    theend = MsgBox("Finished", vbInformation)
End Sub

ThisWorkbookの下にマクロ/ VBAを開き、モジュールを挿入して、右側にコードを貼り付けます。それを実行し、それがすべてです。変数を使用して、開始（200）および終了（65000）値を変更できます。また、開始セルを変更できます。このコードの場合、A1（firstcellrow=1およびfirstcellcolumn=1）です。

手伝ってくれてありがとう。また、今まで見たことのない別の方法も見つけました。編集グループの[ホーム]タブの[塗りつぶし]ボタンを使用し、[系列]を選択して[列と線形]を選択し、65,000の停止値を入力して[OK]をクリックしました。うまくいきました！

繰り返しますが、私を助けてくれて時間を割いてくれたみんなに感謝します。それは大歓迎です。