如何在最后一行和右边添加值？

Question

我一直在处理包含表的电子表格。我用inputbox编写了一个代码，将新数据添加到B列和C列中的表中。我想知道我如何才能将数据添加到第三列中，从而使基于C列的值增加3。在C列中，我希望D列中的对应单元格尽可能多。

    Public Sub InsertCargoNumber3()
Dim aaa As String, ar As Long
aaa = InputBox("Enter cargo number")

If aaa = "" Then
    Exit Sub
Else
    ar = Range("B" & Rows.Count).End(xlUp).Row + 1
    Range("b" & ar).Value = aaa
End If

Dim bbb As String, br As Long
bbb = InputBox("Enter Laycan Start Date")

If bbb = "" Then
    Exit Sub
Else
    br = Range("B" & Rows.Count).End(xlUp).Row
    Range("c" & br).Value = bbb

End Sub

假设通过输入框在C列中输入23.02.20，然后在D列中应显示25.02.20

提前，谢谢

Answer 1

如果我正确理解了您的需求，请测试下一个代码（在现有代码之后添加：）

br = Range("B" & Rows.Count).End(xlUp).Row
Range("C" & br).Value = bbb
With Range("D" & br)
    .Value = DateValue(bbb) +3
    .NumberFormat = "dd/mm/yy"
End With

它在D：D栏中增加了3天，而不是您示例中的2天...