用VBA来做吧,具体作法:首先【工具】【宏】【安全性】设置为:低。关闭Excel再打开!鼠标右击Sheet1的标签,选【查看代码】在代码区粘贴下面的代码:Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Then Target.Offset(,1) = NowEnd Sub按Alt + F11,回到Excel,你在A列输入一个数据去试一试!!!