'在宏代码中多加一句代码，如果你即将对D1写入公式，则在写入公式的代码前插入Sheet1.Range("D1").NumberFormatLocal="G/通用格式"'由于你D1是变化的，所以考虑将上面代码中的1修改为一个变量，如Sheet1.Range("D"&i).NumberFormatLocal="G/通用格式"

EXCEL表格一样的公式计算结果显示会不正确，跟电脑没有关系~之所以出现这种情况，一般是因为表格中公式所在的单元格初始设置为了文本格式（或者公式的来源为文本），然后再设置为常规格式。解决办法：除了用重新计算的方法外，还可以在第一个公式单元格上双击鼠标左键，然后敲回车。接着，向下复制公式即可。