Excel表格空行怎么填充序号？如何快速实现？

作者：佚名|分类：EXCEL|浏览：56|发布时间：2025-03-21 09:05:20

在Excel中，填充序号是日常工作中非常常见的需求。有时候，表格中会存在空行，我们需要在这些空行中填充序号，以便于查看和统计。下面，我将详细介绍如何在Excel中快速实现空行填充序号的方法。

一、手动填充序号

1. 首先，选中需要填充序号的列。

2. 在选中的列中，输入序号“1”。

3. 将鼠标移至单元格右下角，当鼠标变成黑色十字时，双击鼠标左键。

4. 此时，选中的列中的序号将自动填充至该列的剩余单元格。

二、使用公式填充序号

1. 在需要填充序号的列的第一个空行中，输入公式“=ROW(A1)”。

2. 将公式中的“A1”替换为实际需要填充序号的列的起始单元格。

3. 按下回车键，此时该单元格将显示序号“1”。

4. 将鼠标移至单元格右下角，当鼠标变成黑色十字时，双击鼠标左键。

5. 此时，选中的列中的序号将自动填充至该列的剩余单元格。

三、使用“填充序列”功能

1. 选中需要填充序号的列。

2. 点击“开始”选项卡中的“编辑”组，选择“填充”。

3. 在下拉菜单中选择“序列”。

4. 在弹出的“序列”对话框中，选择“行”或“列”。

5. 在“序列产生在”选项中，选择“列”或“行”。

6. 在“类型”选项中，选择“数字序列”。

7. 在“步长值”中输入“1”。

8. 点击“确定”按钮，此时选中的列中的序号将自动填充至该列的剩余单元格。

四、使用VBA宏填充序号

1. 打开Excel，按下“Alt + F11”键，进入VBA编辑器。

2. 在VBA编辑器中，插入一个新模块。

3. 在新模块中，输入以下代码：

```vba

Sub FillSerialNumber()

Dim ws As Worksheet

Set ws = ActiveSheet

Dim lastRow As Long

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Dim i As Long

For i = 1 To lastRow

ws.Cells(i, 1).Value = i

Next i

End Sub

```

4. 关闭VBA编辑器，回到Excel界面。

5. 按下“Alt + F8”键，选择“FillSerialNumber”宏，点击“运行”。

通过以上方法，您可以在Excel中快速实现空行填充序号。下面是相关问答环节：