1、在EXCEL中开启宏控制，依次点击文件--选项----信任中心---信任中心设置---宏设置---启用所有宏--确定
2、按ctrl+F11键，进入VBA编辑窗口---双击要添加效果的工作表---将代码复制粘贴到空白区域--保存即可代码：Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next With Target If .Column <> 7 Then Exit Sub '如果列号不等于7，退出； If .Value = "" Then '如果值为空值，就是第7列的， .Offset(0, 5) = "" '则7列后第5列对应值为空 Else '否则 .Offset(0, 5) = Date '第7列后第5列值为当前日期 End If End WithEnd Sub
3、关闭VBA窗口，进入EXCEL对应工作表测试，而后当G列有内容时，L列对应显示当前日期；G列消失则消失
