Sub 删除时间()
Dim Arr, i&
Sheet1.Activate
Arr = [a1].CurrentRegion
For i = 1 To UBound(Arr) '时间从A1单元格开始
Select Case Arr(i, 1)
Case #12:00:00 AM# To #2:00:00 PM#
Cells(i, 1).Delete shift:=xlToLeft
End Select
Next
End Sub
复制到VBE窗口运行
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024