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