这个有必要使用代码么，excel公式就能解决了在单元格D2输入=IF(C2="",B2，IF(C2>0，C2，0)) 回车键后向下复制如果D列数值相加，在D9单元格输入=SUM(D2：D8)
这拥函数也行啊，为啥非VBA？D单元= if(C:C="",B:B,if(c>0,C:C,""))至于D列总和函数不用写了吧
最好这种代码自己写，帮人写代码的不多，公式倒是可以帮忙。
