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