range的语法错了改成range("W" & xx)=XXXX 看下又看了下，你后边那个公式的写法（公式本身没问题，但有些东西写到VBA里就不对了例如你公式中的o4-today()这个并没有用双引号括起来，运行时肯定会报错）也有问题。
