excel - 今天的日期在Excel宏中

我正在尝试将今天的日期添加到sheet2的A列中。每次我的宏将我的选择粘贴到sheet1的B列中时，都将其粘贴到sheet2的新行中。
我的脚本可以添加新行并将所选内容粘贴到sheet2中，但是我无法弄清楚应该如何在Sheet2中获取新行的A列中的日期。这是我宏中的脚本；

Sub move()
        Dim i As Integer
        Application.ScreenUpdating = False
        ActiveWorkbook.Sheets("Sheet1").Range("A1,A2,A3,A4,A5").Copy

        Sheets("Sheet2").Select
        i = 3
        While Range("B" & i).Value <> ""
            i = i + 1
        Wend
        Range("B" & i).Select

        Selection.PasteSpecial (xlValues), Transpose:=True

        Worksheets("Sheet1").Range("A1:A5").Clear

End Sub

最佳答案

尝试Date函数。它将以MM/DD/YYYY格式为您提供今天的日期。如果您要以MM-DD-YYYY格式查找今天的日期，请尝试Date$。 Now()还包括当前时间(您可能不需要)。这完全取决于您的需求。 :)