Private Sub Worksheet_Change(ByVal Target As Range)
n = 1
For i = 3 To Targets(Rows.Count, 2).End(3).Row
If Targets(i, 3) <> "" Then
Targets(i, 1) = n
n = n + 1
End If
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Column = 3 And Target <> "" Then Target.Offset(0, -2) = Target.Row - 2
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Column = 3 And Target <> "" Then Target.Offset(0, -2) = Target.Row - 2
End Sub
也可:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row > 2 And Target.Column = 3 And Target <> "" Then Target.Offset(0, -2) = Target.Row - 2
End Sub