如果单元格A2：A1000包含任何字母或数字，则将今天的日期放在同一行中

Question

在工作中的项目上工作，并尝试搜索但找不到任何答案。

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

先谢谢了。

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

Answer 2

尝试使用这个小的VBA宏：

Sub dural()
    Dim r As Range
    For Each r In Range("A2:A1000")
        If r.Value <> "" Then r.Offset(0, 4) = Date
    Next r
End Sub