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