操作结束后运行一下这个过程。看不出设备号列标,这里假设在D列。可以用change事件但不可控的因素太多还是用过程吧。
Option Explicit
Sub 填写设备号()
Dim i, m, n
n = [d5].Value '有效的起始设备号
If Not IsNumeric(n) Then MsgBox n: Exit Sub
For i = 5 + 1 To Cells(Rows.Count, "c").End(xlUp).Row
If Cells(i, "c") = "设备" Then
n = n + 1: Cells(i, "d") = n
Else
If Cells(i, "d").Value = "" Then Cells(i, "d") = n
End If
Next
End Sub
Option Explicit
Sub 填写设备号()
Dim i, m, n
n = [d5].Value '有效的起始设备号
If Not IsNumeric(n) Then MsgBox n: Exit Sub
For i = 5 + 1 To Cells(Rows.Count, "c").End(xlUp).Row
If Cells(i, "c") = "设备" Then
n = n + 1: Cells(i, "d") = n
Else
If Cells(i, "d").Value = "" Then Cells(i, "d") = n
End If
Next
End Sub