这个问题有3个办法1、用today（)函数但要设置迭代计算由于和其他文件需要的设置不同有些麻烦2、用宏，Worksheet_Change事件3、最简单的是在需要日期的单元格上按住ctrl再按；（即ctrl+；）建议用后2种办法附上代码工具-》宏-》vb编辑器-》双击左侧树型目录的sheet1，然后在右侧代码区复制一下内容。假设A列输入，B列显示日期PrivateSubWorksheet_Change(ByValTargetAsRange)DimiRowAsIntegerDimiColAsIntegeriRow=Target.RowiCol=Target.ColumnIfiCol=1AndTarget.Offset(0,1)=""ThenTarget.Offset(0,1)=DateEndIfEndSub
