假设你的表的第一行已经有了一个值,你可以把这个值放到第二行(D4
在您的照片中)并根据需要向下拖动
=IF(B4="",A3,A3+1)
如果你真的决定使用VBA,你可以试试这个宏。请注意,这不需要填入表的第一行,编号将停在在 Type
专栏
Sub Test()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim xCell As Range
For Each xCell In ws.Range("A3:A" & ws.Range("B" & ws.Rows.Count).End(xlUp).Row)
If xCell.Offset(0, 1) <> "" Then
xCell = Application.WorksheetFunction.Max(ws.Range("A3:A" & xCell.Row)) + 1
Else
xCell = xCell.Offset(-1)
End If
Next xCell
End Sub