excel - 如何在 Excel 工作表中获取今天的日期？

Question

我正在尝试将今天的日期添加到 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

Answer 1

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