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