用VBA实现EXCEL隔行递增

用VBA实现EXCEL隔行递增的程序很简单。下面举例来和大家一起讨论下!例如我们先在A4单元格内输入某个数字编号,然后能做到向下填充时自动隔行递增,且从B4起会自动显示序号的个数程序如下：
在B1中设定公式：
=TEXT((ROW(A1))/2,"000")
  然后向下填充，这样可以实现隔行增加
然后自动显示个数则在C1中这样
=COUNTIF(A$3:A4,A4)!