如何让 VBA 用 05/04/2016 替换晚于 05/04/2016 的日期

Question

这是我在这里的第一个问题，所以我会尽可能清楚。

我在 Excel 中有一个大型数据集，我特别感兴趣的一列有 cmets，例如“您好，该产品的发布日期是 08/04/2017”。我希望创建一个代码，允许我将这些单元格中的每个日期更改为 05/04/2016。

编辑：为了清楚起见，每个单元格可能包含也可能不包含多个日期！

代码将在理想情况下识别单元格中 2016 年 5 月 4 日之后的任何日期，并将其确定为 2016 年 5 月 4 日，而不会触及任何不是日期的文本，或 2016 年 5 月 4 日之前的日期细胞。

这是我一直在使用的代码，如果有帮助的话，

子ReplaceDate()

暗淡 x 为日期

对于 x = 6 / 4 / 2016 至 05 / 04 / 2020

Range("C2:C31").Select
Selection.NumberFormat = "dd/MM/yyyy"
Selection.Replace "x", Replacement:="05/04/2016", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

下一个 x

结束子

正如您可能已经猜到的那样，现在代码实际上替换了单元格中的任何“X”，但我尝试了诸如Selection.Replace DataValue > 05/04/2016 之类的东西。

任何帮助将不胜感激！

亲切的问候。

Answer 1

你可以试试：

Sub ChangeDate()
    Dim cell As Range
    Dim words As Variant
    Dim iWord As Long

    For Each cell In Range("C2", Cells(Rows.count, "C").End(xlUp)) '<--| loop through column C cells from row 2 down to last not empty one
        words = Split(cell, " ")
        For iWord = 0 To UBound(words)
            If IsDate(words(iWord)) Then If CDate(words(iWord)) > CDate("05/04/2016") Then words(iWord) = "05/04/2016"
        Next
        cell.Value = Join(words, " ")
    Next
End Sub