日付が同じなら削除

質問

すみません、誰か教えて頂けませんでしょうか。
A列に日付と時間が記入されているのですが、日付だけを比較して
同じなら削除したいのですが、誰かご教授頂けませんでしょうか。

A列
2013/8/14 8:00
2013/8/14 8:15
2013/8/14 10:00
2013/8/15 8:00
2013/8/16 8:00
2013/8/17 8:00
2013/8/17 20:00
2013/8/18 8:00
2013/8/18 9:00

A列
2013/8/14 8:00
2013/8/15 8:00
2013/8/16 8:00
2013/8/17 8:00
2013/8/18 8:00

Sub 削除 ()
Dim r As Long
Dim y As Long

r = Cells(Rows.Count,1).End(xlUp).Row

For y = r To 1 Step -1

If Cells(y,1).Value = Cells(y,1).Offset(1,0) Then 'この比較がわかりません。
Cells(y,1).Offset(1,0).Delete(xlUp)
End If

Next y

End Sub

すみませんが、宜しくお願いします。

回答No.2

watabe007 · ベストアンサー

参考に
Dim r As Long
Dim y As Long

r = Cells(Rows.Count, 1).End(xlUp).Row
For y = r To 2 Step -1
　　If Format(Cells(y, 1), "mm/dd") = Format(Cells(y - 1, 1), "mm/dd") Then
　　　　Cells(y, 1).Delete
　　End If
Next y

お礼

watabe007様

ありがとうございます。
参考になりました。

回答No.1

mshr1962

参照のVBAの式

If Cells(y,1).Value = Cells(y,1).Offset(1,0) Then

上記だと時間を含んでの比較ですね。　Offset(1,0)は1行下のセルのことです。
日付のみ（シリアル値の整数部分）の比較にするなら

If Int(Cells(y,1).Value) = Int(Cells(y,1).Offset(1,0)) Then

と値をInt関数かFix関数で整数化すれば可能です。

お礼

mshr1962様

ありがとうございます。
参考になりました。