Excelmacros或函数清除单元格内容，如果不是date

问题

垃圾被错误地input到date字段中，并计算出来。

目标

使用macros或函数检查单元格范围内的内容，确定它们是否是date，如果不是，则删除非date内容。

我所试过的

使用search和replacefunction来定位和删除违规项目。 取而代之，仍然不清除一切。

任何想法，谢谢。

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