#2
boyzjv2022-06-19 12:27
|
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
求哪位大佬帮忙看看是那里的问题 运行过后再这个范围之内的时间都没有被删除