excel vba-循环时做 - 在单元格中约会

Question

我想增加定居日期（分配给单元N13），直到网络天数（分配给单元P11）达到3。

网络天数计数两个日期之间的工作日数量不包括假期。但是，我为此增加了一系列假期。

Sub Settlement_Date()

Do While Cells(16, 12) < 3
    
    Cells(14,11)
    
Loop

Answer 1

要在循环中增加单元格（14,11），请将该行更改为

Cells(14,11) = Cells(14,11) + 1

Answer 2

设法自己做，但是在我在这里找到的一些帖子中读了片段

Sub Settlement_Date()

Do While ActiveCell.Offset(0, 2).Value < 3 

    ActiveCell.Value = ActiveCell.Value + 1
    
Loop

End Sub

移动一个单元格
使用VBA 在单元格中添加一天