0

問題

ゴミが日付フィールドに誤って入力され、計算が台無しになります。

ゴール

マクロまたは関数を使用してセル範囲の内容を確認し、それらが日付であるかどうかを判断し、そうでない場合は日付以外の内容を削除します。

私が試したこと

検索と置換機能を使用して、問題のあるアイテムを見つけて削除します。永遠にかかりますが、まだすべてをクリアしていません。

任意のアイデア、ありがとう。

4

1 に答える 1

3

あなたはこれを試すことができます

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
于 2012-06-21T00:56:02.087 に答える