|
Sub Macro1()
Dim arr
arr = Range("a1:x" & Range("x99999").End(xlUp).Row)
For i = 8 To UBound(arr)
If Cells(i, 18).Interior.Color = 5287936 Or Cells(i, 19).Interior.Color = 5287936 Or Cells(i, 20).Interior.Color = 5287936 Or Cells(i, 21).Interior.Color = 5287936 Or Cells(i, 22).Interior.Color = 5287936 Or Cells(i, 23).Interior.Color = 5287936 Or Cells(i, 24).Interior.Color = 5287936 Then
Rows(i).Select
Selection.EntireRow.Hidden = False
Else
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next
End Sub
水一个 |
评分
-
1
查看全部评分
-
|