用vba代码编序号

whongxiao

在序号列填充序号，如下图，遇到小计跳过。怎么写代码，求助。

taller

清风竹-

请看附件。

x-xx-xx

ykcbf1100

参与一下。。。

ykcbf1100

参与一下，供参考。。。

1. Sub ykcbf()  '//2024.2.24
   
2.     r = Me.Cells(Rows.Count, 3).End(3).Row
   
3.     For i = 5 To r
   
4.         If Me.Cells(i, 2) <> "小计" Then
   
5.             m = m + 1
   
6.             Me.Cells(i, 2) = m
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码

gwjkkkkk

写个函数吧。。。

gwjkkkkk

D5=

1. =IF(B5="小计","小计",ROW()-4-COUNTIF($B4:$B$5,"小计"))

复制代码

今铭昔

沈默00