在列 vba 中查找和删除日期答案

【问题标题】：Finding and deleting dates in column vba在列 vba 中查找和删除日期
【发布时间】：2016-08-25 01:39:01
【问题描述】：

我正在尝试创建一个函数，该函数将扫描一列并删除（或替换为空）任何形式的任何日期。 8/24 或 8/24/16。我一直找不到有效的方法。

【问题讨论】：

试试IsDate()函数。
你想用哪种方式做到这一点？
到目前为止，我使用随机日期并使用替换功能来查找和替换日期...我正在尝试遍历单个单元格中的字符串，并删除那里的任何日期，保留文本的其余部分。例如：“汽车几乎准备就绪 EDD - 08/24/16 并且表现良好”以显示“汽车几乎准备就绪并且表现良好”

【解决方案1】：

检查下面的代码。猜猜这个就行了

    Sub Change_Dtfld2Blank()
    cllRange = 100 ''SpecifyNo of rows in question
    clNum = 1 '''Specify Colum Number
    sSheetname = "Sheet2" ''Specify Sheet name
    
    For i = 1 To cllRange
        If IsDate(Sheets(sSheetname).Cells(i, clNum).Value) Then
            Sheets(sSheetname).Cells(i, clNum) = ""
        End If
    Next i
    End Sub

【讨论】：