Sub   删除()
Dim  arr,i As  long, j as long
arr=range ("E2：J66")
For i=1 To UBound (arr,2)
    For j=1 To UBound(arr)
        If arr(j,i)≥"10：00" And arr (j,i)≤"23：59" Then
            arr=""
        End if
    Next
Next
Range("E2").Resize(UBound(arr),UBound (arr,2))=arr
End Sub


求哪位大佬帮忙看看是那里的问题   运行过后再这个范围之内的时间都没有被删除