Excel宏或函数，如果不是日期，则清除单元格内容

Question

问题

垃圾会错误地输入到日期字段中，从而搞砸了计算。

目标

使用宏或函数检查单元格区域中的内容，确定它们是否为日期，如果不是，则删除非日期内容。

我尝试过的

使用搜索和替换功能查找和删除有问题的项目。 花了很长时间，仍然无法清除所有内容。

任何想法，谢谢。

Answer 1

你可以试试这个

Sub DeleteNonDates()
    Dim r As Range, a As Range, cl As Range
    Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
    For Each cl In r.Cells
        If TypeName(cl.Value) <> "Date" Then
            cl.ClearContents
        End If
    Next
End Sub