为什么不直接用公式呢？有必要用VBS吗？b列输入“=IF(A1<>"",TODAY(),"")”，c列输入“=if(a1<>"",$D$1,"")”
这个很容易实现，如果你需要可以把样表和要求发到我邮箱里，我帮你弄我邮箱：febls@126.com代码我实在是不敢跟百度发了，几乎我一发代码百度就给我和掉，已经被弄无语了。
