自动填写序号公式,删行或增加行出错

hnjhp2009

gateun 发表于 2024-12-2 16:36
=IF(B4"",MAX($A$3:A3)+1,"")

删行出错，增加行会重复，如何解决？还有能否增行自动带入上行公式？

hnjhp2009

你是那块小饼干 发表于 2024-12-2 16:39
=IF(B3="","",COUNTA($B$3:B3))

删行出错，增加行会重复，如何解决？还有能否增行自动带入上行公式？

gateun

hnjhp2009 发表于 2024-12-2 17:06
删行出错，增加行会重复，如何解决？还有能否增行自动带入上行公式？

增行，删行没有出错啊！

gateun

1. Sub FillSerialNumbers()
   
2.     Dim ws As Worksheet
   
3.     Set ws = ActiveSheet ' 或者指定具体的工作表，例如 Set ws = ThisWorkbook.Worksheets("Sheet1")
   
4.    
   
5.     Dim i As Long
   
6.     Dim lastRow As Long
   
7.     lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' 找到B列最后一个非空单元格的行号
   
8.    
   
9.     i = 1 ' 序号从1开始
   
10.     For Each cell In ws.Range("B3:B" & lastRow)
    
11.         If Not IsEmpty(cell.Value) Then ' 如果B列单元格非空
    
12.             ws.Cells(cell.Row, "A").Value = i ' 在A列对应的单元格填充序号
    
13.             i = i + 1 ' 序号递增
    
14.         End If
    
15.     Next cell
    
16. End Sub

复制代码