时间 必需是 excel 认可的格式Sub kk() Dim i For i = [e1].End(4).Row To 1 Step -1 If Cells(i, 8) > 42018.25 And Cells(i, 8) < 42019.2916666666 Then Rows(i).Delete NextEnd Sub
EXCEL有自带删除重复行用VBA的话,建议用字典法