编程填序号题目通常涉及以下步骤：
确定序号范围
确定需要填充序号的起始行和结束行。
选择填充列
选择一个列（例如A列）用于填充序号。
编写代码
使用循环结构，从起始行开始，逐行在选择的列中填充序号。
```vba
Sub 自动填充序号（）
Dim lastRow As Long
lastRow = Cells（Rows.Count, "A"）.End（xlUp）.Row ' 找到A列最后一行的行号
For i = 2 To lastRow ' 从第二行开始循环，假设第一行是标题行
Cells（i, 1）.Value = i - 1 ' 在A列填充序号
Next i
End Sub
```
在这个示例中：
`lastRow` 用于获取A列最后一行的行号。
`For i = 2 To lastRow` 从第二行开始循环，因为第一行通常是标题行。
`Cells（i, 1）.Value = i - 1` 在A列的每一行中填充序号，序号从0开始，因此使用 `i - 1`。
如果你想要从其他列开始填充序号，或者从其他起始序号开始，可以相应地修改代码。例如，如果你想要在B列从100开始填充序号，可以这样做：
```vba
Sub 自定义起始序号（）
Dim lastRow As Long, startNum As Long
lastRow = Cells（Rows.Count, "A"）.End（xlUp）.Row
startNum = 100 ' 设置起始序号为100
For i = 2 To lastRow
Cells（i, 2）.Value = startNum
startNum = startNum + 1
Next i
End Sub
```
在这个示例中：
`startNum` 用于存储当前的序号，初始值为100。
`Cells（i, 2）.Value = startNum` 在B列的每一行中填充序号，序号从100开始，因此使用 `startNum`，并在每次循环后递增1。
希望这些示例能帮助你理解如何编写编程填序号题目。