谢谢7楼的山风兄弟 答案更加完美 Private Sub Worksheet_Change(ByVal Target As Range) '单元格触发事件 If Target.Column <> 2 Then Exit Sub '非第2列不触发 If Target <> "" Then '没有选定或输入字符不触发 Target.Offset(0, -1).Value = Target.Row - 1 End If End Sub |
|
来自: excel379 > 《excel服务器文章》