![Excel 2013 - 填写 2000 - 65000 之间的数字,无需使用拖动填充手柄鼠标方法](https://linux22.com/image/1468122/Excel%202013%20-%20%E5%A1%AB%E5%86%99%202000%20-%2065000%20%E4%B9%8B%E9%97%B4%E7%9A%84%E6%95%B0%E5%AD%97%EF%BC%8C%E6%97%A0%E9%9C%80%E4%BD%BF%E7%94%A8%E6%8B%96%E5%8A%A8%E5%A1%AB%E5%85%85%E6%89%8B%E6%9F%84%E9%BC%A0%E6%A0%87%E6%96%B9%E6%B3%95.png)
我需要在 Excel 2013 中填写从 2000 到 65000 的数字,使用填充柄和拖动是一个非常漫长的过程。
还有其他方法可以做到这一点吗?
答案1
在 A1 中输入“2000”。然后,输入公式 A2=A1+1,并将此公式复制到 A3,直到 A65000,方法是先选择 A3,然后按住转移,然后使用鼠标滚动到 A65000,单击单元格,然后释放 shift。粘贴公式。这将为您提供所需的结果。
如果您想随后将公式转换为值,请再次选择全部复制,然后粘贴为值。
答案2
- 将第一个单元格设置为您的起始值。
- 将其下方的单元格设置为 CellAbove + 1。
- 单击选择第二个单元格。
- 向下滚动并按住 Shift 键单击结束单元格。
- Ctrl-D(填充,向下)
- Ctrl-C(复制)
- Ctrl-Alt-V(选择性粘贴)
- 选择“值”,点击确定
这是一种方法暴徒小队会使用,但它有效。
答案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
)。
答案4
感谢大家的帮助。我还发现了另一种我从未见过的方法。使用编辑组中主页选项卡上的填充按钮并选择系列,我选择了列和线性,输入停止值 65,000,然后单击确定。效果很好!
再次感谢大家抽出时间帮助我。我非常感激。