宏If语句列用Tomorrows日期替换当前日期

Question

我有A栏，其当前日期和B栏有＆＃34; 0＆＃34;或＆＃34; 1＆＃34;。

我想创建一个宏，它有if语句，如果列B =＆＃34; 1＆＃34;它会将A列中的日期推迟一天。我假设使用替换功能

Answer 1

Excel将日期存储为整数，因此您只需增加单元格：

Sub a()

    With Sheets("Sheet1")
        If .Cells(1, 2).Value = 1 Then
            .Cells(1, 1).Value = .Cells(1, 1).Value + 1
        End If
    End With

End Sub