Dim lecNum As Integer
Dim lecturelastRow As Integer
lecturelastRow = ActiveWorkbook.Sheets("sheeet1").UsedRange.Rows.Count
For lecNum = 0 To lecturelastRow
'将第二列是红色的行删除
If Cells(lecNum, 2).Interior.ColorIndex = 3 Then
Rows(lecNum).Delete shift:=xlUp
Exit For
End If
Next
VBA 删除有颜色的行
最新推荐文章于 2024-06-18 08:42:10 发布