excel：获取date并添加一天
我有这个简单的名称和几个date的电子表格。
我想要发生的是，如果一些条件是真的，我会得到第一张纸的结束date（H列），并将其复制到我的第二张纸（G列），并添加更多的一天。
这是第一张，名为BASE_TOTAL 。
这是第二个叫做APOIOS 。
“sss”代表我要input的date加上一天。
这是我迄今为止所尝试的：
Sub Apoios() Dim i As Long Dim j As Long Dim lastrow As Long Dim ws1 As Worksheet Dim ws2 As Worksheet Dim ws3 As Worksheet Dim res Set ws1 = Sheets("Plan3") Set ws2 = Sheets("BASE_TOTAL") Set ws3 = Sheets("APOIOS") lastrow = ws2.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To lastrow For j = 1 To 11 Select Case True Case IsEmpty(ws2.Cells(i, j)): ws3.Cells(i, j) = "" Case Not IsEmpty(ws2.Cells(i, j)): If ws1.Cells(4, 3) <= ws2.Cells(i, 8) And ws2.Cells(i, 5).Value <> "APOIO" Then ws3.Cells(i, 1).Value = ws2.Cells(i, 1) ws3.Cells(i, 2).Value = ws2.Cells(i, 2) ws3.Cells(i, 3).Value = ws2.Cells(i, 3) ws3.Cells(i, 4).Value = ws2.Cells(i, 4) ws3.Cells(i, 5).Value = "APOIO" ws3.Cells(i, 6).Value = "-" ws3.Cells(i, 7).Value = ws2.Cells(i, 8).Value + 1 ws3.Cells(i, 8).Value = "-------------" ws3.Cells(i, 9).Value = ws2.Cells(i, 9) ws3.Cells(i, 10).Value = ws2.Cells(i, 10) ws3.Cells(i, 11).Value = ws2.Cells(i, 11) End If End Select Next j Next i End Sub
正如你所看到的，我试图用这行代码来做到这一点：
ws3.Cells(i, 7).Value = ws3.Cells(i, 8).Value + 1
但它没有解决。 我对VBA是一种新鲜的东西，所以我不知道应该使用哪个函数来理解，我希望在该单元格上添加date，然后再添加一天。
我知道存在DateSerial函数，但我不知道如何将其应用于此示例。 我也find了这个答案，我会检查它是否工作。 虽然我的date是以dd/mm/yyyy格式。
任何build议将有所帮助。
你有没有尝试过DateAdd函数？ 喜欢
ws3.Cells(i, 7).Value = DateAdd("d", 1, ws2.Cells(i, 8).Value)