Excel如何给筛选单元格填充序号?
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中筛选后的单元格填充了依次递增的数字序号。
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:56
阅读量:59
阅读量:81
阅读量:69
阅读量:59