Sub DD用当日チェックインの行を削除する()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim todayDate As Date
' 現在のワークシートを取得
Set ws = ThisWorkbook.ActiveSheet
' 今日の日付を取得
todayDate = Date
' E列の最後の行番号を取得
lastRow=ws.Cells(ws.Rows.Count,5).End(xlUp).Row
' 最後の行から上へループ
For i = lastRow To 1 Step -1
' 列Eのセルの値が今日の日付と一致するか確認
If ws.Cells(i,5).Value = todayDate Then
' 一致する場合は行を削除
ws.Rows(i).Delete
End If
Next i
End Sub
このコードをExcelのVBAエディタに貼り付けて実行すると、選択されたセルの列で、当日の日付と一致する行が削除されます。選択されたセルが日付を含む列であることを確認してください。