1、如下图所示，Excel中的数据表已经进行了筛选，对A列中筛选后的可见单元格填充依次递增的数字序号。
2、点击“开发工具”选项卡中的“Visual Basic”，如下图所示。
3、双击左侧数据所在工作表，在右侧弹出的空白代码编辑区中，输入代码：
Sub 鱼木混猪()
For i = 2 To 16
If Range("A" & i).EntireRow.Hidden = False Then
k = k + 1
Range("A" & i) = k
End If
Next
End Sub
如下图所示。
4、点击代码中的任意位置，然后点击上方的“运行子程序”按钮，如下图所示。
5、这样，就为筛选后的单元格填充了依次递增的数字，如下图所示。
1、1.在Excel中完成筛选；
2.点击“开发工具”中的“Visual Basic”；
3.输入代码，关键代码：
Range("A" & i).EntireRow.Hidden = False
4.点击“运行子程序”；
5.就为Excel中筛选后的单元格填充了依次递增的数字序号。
