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