2016-08-25 23 views
-1

カラムをスキャンして何らかの日付を削除(または何も置き換えない)する関数を作成しようとしています。 8/24または8/24/16。私はこれを行う効率的な方法を見つけることができませんでした。カラムの日付の検索と削除

+1

は試してみてください行いますゲス[IsDate関数()](https://msdn.microsoft.com/en-us/library/00wf8zk9(V = VS.90)。 aspx)関数です。 – Comintern

+0

あなたはどちらの方法でそれをしようとしていますか? – pableiros

+0

これまでのところランダムな日付を使用して、置換機能を使用して日付を検索し、置き換えています...私は単一のセルにある文字列を調べ、残りのテキストを保存している日付を削除しようとしています。例えば、「車はほぼ準備ができているEDD - 08/24/16であり、うまくいきます」と表示されます。「車はほぼ準備が整っています。 – user6754922

答えて

0

下記のコードを確認してください。これは

Sub Change_Dtfld2Blank() 
    cllRange = 100 ''SpecifyNo of rows in question 
    clNum = 1 '''Specify Colum Number 
    sSheetname = "Sheet2" ''Specify Sheet name 

    For i = 1 To cllRange 
     If IsDate(Sheets(sSheetname).Cells(i, clNum).Value) Then 
      Sheets(sSheetname).Cells(i, clNum) = "" 
     End If 
    Next i 
    End Sub 

jlo6687.info