我如何将时间戳添加到我的复制列 excel VBA 代码中，每天更新时间，忽略过去的日子？

Question

如何将当前日期输出到单元格中？

特色：

我使用一个列作为模板，每天应该在其中输入当前日期。如果我复制该列，则应转移当前日期。但是，以前复制的列的日期不允许更改！

示例：A 列是模板。我刚刚用 VBA 将它复制到 C 列，现在应该显示今天的日期！ D栏我前几天已经复制了，里面应该是旧日期，显示正确！

目标是一种时间戳，将复制时的当前日期存储到单元格中

当前 VBA:

Sub ColumnCopyInsertNEW()
    
    Const ColumnsAddress As String = "D:E"
    Const LastColumnRow As Long = 2
    
    With Columns(ColumnsAddress)
        .EntireColumn.Hidden = False
        .Copy
        Dim cCount As Long: cCount = .Columns.Count
        .Cells(LastColumnRow, 1).End(xlToRight) _
            .Offset(1 - LastColumnRow, 1).Insert xlShiftToRight
        .EntireColumn.Hidden = False
    End With
    
End Sub

Answer 1

Date 将为您提供今天的日期值。只需根据您的需要格式化

Range("C3").Value = Format(Date, "dd.mm.yyyy")

我如何将时间戳添加到我的复制列 excel VBA 代码中，每天更新时间，忽略过去的日子？

How can i add a timestamp to my copy column excel VBA code that updates each day the time, ignoring past days?

excel

vba

timestamp

date