请大神们帮忙看下这个日期增加一天的代码哪里出差错了

qiongmei6 · 发表于 2023-5-14 19:59

我附件上有一个代码，我希望增加的功能是当我执行后，b列的日期增加一天，但不知道咋回事，现在的代码不起作用，恳请大大神们帮忙看下是哪里出差错，再次谢谢各位大神的帮忙。

liulang0808 · 发表于 2023-5-14 20:23

Sub 日期增加一天()
m = [b65536].End(3).Row
For i = 3 To m
If Cells(i, 3) <> "" Then
Cells(i, 2) = Cells(i, 2) + 1
End If
Next
End Sub

cyq4896 · 发表于 2023-5-14 20:36

变量不一致

		自动登录	找回密码
密码			免费注册

[求助] 请大神们帮忙看下这个日期增加一天的代码哪里出差错了