可以在sub下加一行语句
On Error Resume Next
例如这段语句
sub test()
if cells(1,1)="" then cells(1,1) =1/0
cells(2,1)=2
end sub
这个除数为0 肯定要报错的
如果改成
Sub test()
On Error Resume Next
If Cells(1, 1) = "" Then Cells(1, 1) = 1 / 0
Cells(2, 1) = 2
End Sub
请选择调试,再拷屏指出代码黄色行前后部分
你这代码写的确实太冗长,发表格或者截图我来写!
计算日期间隔 建议用 datediff 函数比较好点