用于比较具有包含日期的单元格的列并将特定文本粘贴到另一列的Vba代码

Sub CompareAndPaste()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一行
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        ' 检查日期是否满足条件
        If IsDate(Cells(i, "A").Value) Then
            ' 比较日期并将特定文本粘贴到另一列
            If Cells(i, "A").Value > Date Then
                Cells(i, "B").Value = "特定文本"
            End If
        End If
    Next i
End Sub