Excel 2013 - 填写 2000 - 65000 之间的数字，无需使用拖动填充手柄鼠标方法

Question

我需要在 Excel 2013 中填写从 2000 到 65000 的数字，使用填充柄和拖动是一个非常漫长的过程。

还有其他方法可以做到这一点吗？

Answer 1

在 A1 中输入“2000”。然后，输入公式 A2=A1+1，并将此公式复制到 A3，直到 A65000，方法是先选择 A3，然后按住转移，然后使用鼠标滚动到 A65000，单击单元格，然后释放 shift。粘贴公式。这将为您提供所需的结果。

如果您想随后将公式转换为值，请再次选择全部复制，然后粘贴为值。

Answer 2

1. 将第一个单元格设置为您的起始值。
2. 将其下方的单元格设置为 CellAbove + 1。
3. 单击选择第二个单元格。
4. 向下滚动并按住 Shift 键单击结束单元格。
5. Ctrl-D（填充，向下）
6. Ctrl-C（复制）
7. Ctrl-Alt-V（选择性粘贴）
8. 选择“值”，点击确定

这是一种方法暴徒小队会使用，但它有效。

Answer 3

这是一个使用 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

打开宏/VBA，在本工作簿插入一个模块并将代码粘贴到右侧。运行它，就完成了。使用变量，您可以修改起始值（200）和结束值（65000）。您还可以修改起始单元格。此代码为 A1（firstcellrow=1和firstcellcolumn=1）。

Answer 4

感谢大家的帮助。我还发现了另一种我从未见过的方法。使用编辑组中主页选项卡上的填充按钮并选择系列，我选择了列和线性，输入停止值 65,000，然后单击确定。效果很好！

再次感谢大家抽出时间帮助我。我非常感激。