excel 等差序列快速填充
发布网友
发布时间：2022-04-24 01:57
共2个回答
热心网友
时间：2023-10-20 10:12
选择A 列，设置单元格格式为“数字”下的“自定义”，并在定义类型中输入K8!00000，确定。
在左上角的名称栏中输入A1:A12000，回车，将A1:A12000处于编辑状态；
输入=ROW() 按Ctrl+Enter组合键，快速实现在A列显示K800001至K812000序列填充。
详见附图
追问多谢，在K809999还正常，只是上了万位后就变成K8010000，就多了一位数，怎么做就不会多一位数追答1、在名称框中输入B1:B12000，回车，将B1:B12000处于编辑状态；
2、输入=TEXT(ROW(),"00000") 按Ctrl+Enter组合键，快速实现在B列显示00001至12000序列填充；
3、在A1单元格输入="K8"&B1，然后选择A1单元格，将光标移动到A1单元格的右下角，至出现+，双击+，实现向A1:A12000快速填充序列。
热心网友
时间：2023-10-20 10:12
A1单元格输入K800001后，选中 a1，将鼠标放到右下角的点上，鼠标箭头变成十字后，按住鼠标左键，向下拉倒K812000即可。
太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 2000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub追问那要拖很久啊
追答太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 12000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub
运行该宏
这样输入的是真正的数据，表面显示的与实际的一样，不是水中月镜中花的那种。
热心网友
时间：2023-10-20 10:12
选择A 列，设置单元格格式为“数字”下的“自定义”，并在定义类型中输入K8!00000，确定。
在左上角的名称栏中输入A1:A12000，回车，将A1:A12000处于编辑状态；
输入=ROW() 按Ctrl+Enter组合键，快速实现在A列显示K800001至K812000序列填充。
详见附图
追问多谢，在K809999还正常，只是上了万位后就变成K8010000，就多了一位数，怎么做就不会多一位数追答1、在名称框中输入B1:B12000，回车，将B1:B12000处于编辑状态；
2、输入=TEXT(ROW(),"00000") 按Ctrl+Enter组合键，快速实现在B列显示00001至12000序列填充；
3、在A1单元格输入="K8"&B1，然后选择A1单元格，将光标移动到A1单元格的右下角，至出现+，双击+，实现向A1:A12000快速填充序列。
热心网友
时间：2023-10-20 10:12
A1单元格输入K800001后，选中 a1，将鼠标放到右下角的点上，鼠标箭头变成十字后，按住鼠标左键，向下拉倒K812000即可。
太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 2000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub追问那要拖很久啊
追答太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 12000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub
运行该宏
这样输入的是真正的数据，表面显示的与实际的一样，不是水中月镜中花的那种。
热心网友
时间：2023-10-20 10:12
选择A 列，设置单元格格式为“数字”下的“自定义”，并在定义类型中输入K8!00000，确定。
在左上角的名称栏中输入A1:A12000，回车，将A1:A12000处于编辑状态；
输入=ROW() 按Ctrl+Enter组合键，快速实现在A列显示K800001至K812000序列填充。
详见附图
追问多谢，在K809999还正常，只是上了万位后就变成K8010000，就多了一位数，怎么做就不会多一位数追答1、在名称框中输入B1:B12000，回车，将B1:B12000处于编辑状态；
2、输入=TEXT(ROW(),"00000") 按Ctrl+Enter组合键，快速实现在B列显示00001至12000序列填充；
3、在A1单元格输入="K8"&B1，然后选择A1单元格，将光标移动到A1单元格的右下角，至出现+，双击+，实现向A1:A12000快速填充序列。
热心网友
时间：2023-10-20 10:12
A1单元格输入K800001后，选中 a1，将鼠标放到右下角的点上，鼠标箭头变成十字后，按住鼠标左键，向下拉倒K812000即可。
太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 2000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub追问那要拖很久啊
追答太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 12000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub
运行该宏
这样输入的是真正的数据，表面显示的与实际的一样，不是水中月镜中花的那种。
热心网友
时间：2023-11-11 11:10
选择A 列，设置单元格格式为“数字”下的“自定义”，并在定义类型中输入K8!00000，确定。
在左上角的名称栏中输入A1:A12000，回车，将A1:A12000处于编辑状态；
输入=ROW() 按Ctrl+Enter组合键，快速实现在A列显示K800001至K812000序列填充。
详见附图
追问多谢，在K809999还正常，只是上了万位后就变成K8010000，就多了一位数，怎么做就不会多一位数追答1、在名称框中输入B1:B12000，回车，将B1:B12000处于编辑状态；
2、输入=TEXT(ROW(),"00000") 按Ctrl+Enter组合键，快速实现在B列显示00001至12000序列填充；
3、在A1单元格输入="K8"&B1，然后选择A1单元格，将光标移动到A1单元格的右下角，至出现+，双击+，实现向A1:A12000快速填充序列。
热心网友
时间：2023-11-11 11:10
A1单元格输入K800001后，选中 a1，将鼠标放到右下角的点上，鼠标箭头变成十字后，按住鼠标左键，向下拉倒K812000即可。
太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 2000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub追问那要拖很久啊
追答太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 12000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub
运行该宏
这样输入的是真正的数据，表面显示的与实际的一样，不是水中月镜中花的那种。
热心网友
时间：2023-10-20 10:12
选择A 列，设置单元格格式为“数字”下的“自定义”，并在定义类型中输入K8!00000，确定。
在左上角的名称栏中输入A1:A12000，回车，将A1:A12000处于编辑状态；
输入=ROW() 按Ctrl+Enter组合键，快速实现在A列显示K800001至K812000序列填充。
详见附图
追问多谢，在K809999还正常，只是上了万位后就变成K8010000，就多了一位数，怎么做就不会多一位数追答1、在名称框中输入B1:B12000，回车，将B1:B12000处于编辑状态；
2、输入=TEXT(ROW(),"00000") 按Ctrl+Enter组合键，快速实现在B列显示00001至12000序列填充；
3、在A1单元格输入="K8"&B1，然后选择A1单元格，将光标移动到A1单元格的右下角，至出现+，双击+，实现向A1:A12000快速填充序列。
热心网友
时间：2023-10-20 10:12
A1单元格输入K800001后，选中 a1，将鼠标放到右下角的点上，鼠标箭头变成十字后，按住鼠标左键，向下拉倒K812000即可。
太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 2000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub追问那要拖很久啊
追答太多不方便，也可使用vba，在vba编辑器选择需要输入数据的工作表，在他的代码窗口中输入：
Sub A()
Dim i As Integer
For i = 1 To 12000
Cells(i, 1).Value = "K" & (800000 + i)
Next
End Sub
运行该宏
这样输入的是真正的数据，表面显示的与实际的一样，不是水中月镜中花的那种。
