excel - 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