复制,然后原地粘贴数值。----------------------------录制一个新宏,把所有内容替换成下面语句:Sub RQ() ActiveCell.Value = NowEnd Sub保存退出,给宏设置一个快捷键,使用的时候,点选日期单元格,按下快捷键,即可。这样以后再打开也不会改日期。