excel - 如果单元格 A2:A1000 包含任何字母或数字，请将今天的日期放在同一行

Question

在工作中从事该项目并尝试搜索但找不到任何答案。

就像标题所说，如果单元格 a2 到 a1000 包含任何字母或数字，我想在 E 行输入今天的日期（同一行，但今天的日期在 E 列上超过 4 行）。请参阅下面我想要的图片示例。

提前致谢。

标签： excelvba

Answer 1

非空日期

Sub NotEmptyDate()

    Const cSheet As String = "Sheet1"
    Const cCol1 As String = "A"
    Const cCol2 As String = "E"
    Const cFirst As Long = 2
    Const cLast As Long = 1000

    Dim i As Long

    With ThisWorkbook.Worksheets(cSheet)
        For i = cFirst To cLast
            If Not IsEmpty(.Range(cCol1 & i)) Then
                .Range(cCol2 & i) = Date
            End If
        Next
    End With

End Sub