查找论坛，关于自动序号的都是纵向下拉自动，求一横向自动填充序号的公式，谢谢

riser

知道用 公式可以如：SUBTOTAL(103,$B$1:B1)下拉自动生成序号，并且删除、插入或者隐藏行的时候序号会自动改过

如下，行A10的非零和非空的时候在行A1自动生成序号，而且在删除、插入或者隐藏列的时候序号会自动变

谢谢

vbee

1. =IF(OR(A10="",A10=0),"",COUNTA($A$10:A10)-COUNTIF($A$10:A10,0))

复制代码

riser

vbee 发表于 2022-10-16 21:38

单元格有数据时隐藏的话序号没有变

niko88819

A1

1. =IF(OR(ISTEXT(A10),(A10>0)),COUNTA($A$10:A10)-COUNTIF($A$10:A10,0),"")

复制代码

riser

niko88819 发表于 2022-10-17 09:03
A1

隐藏有数据的列时序号没变

niko88819

riser 发表于 2022-10-17 10:09
隐藏有数据的列时序号没变

VBA

1. Sub niko()
   
2. Dim c&, j&
   
3. Range("A1:U1").ClearContents
   
4. For j = 1 To 21
   
5.     With Cells(10, j)
   
6.         If Not (.EntireColumn.Hidden) And .Value <> 0 And .Value <> "" Then
   
7.             c = c + 1
   
8.             Cells(1, j).Value = c
   
9.         End If
   
10.     End With
    
11. Next
    
12. End Sub

复制代码

hcm19522

C2=IF(ISERR(FIND(B2,"0 ")),MAX(C$1:C1)+1,"")

niko88819

hcm19522 发表于 2022-10-17 14:22
C2=IF(ISERR(FIND(B2,"0 ")),MAX(C$1:C1)+1,"")

老师垂直方向的隐藏序号比较好处理,横式方向真的麻烦, 垂直方向公式 C2  下拉

1. =IF(OR(ISTEXT(B2),(B2>0)),SUBTOTAL(103,($B$2:$B2))-COUNTIF($B$2:B2,0),"")

复制代码