startEdit事件,写代码
If e.Col.name = "第五列" Then If e.Row.IsNull(e.Col.name) Then Sendkeys.Send(Date.Today.year) End IfEnd If