Sub xx()
n = UsedRange.Item(UsedRange.Count).Row
If n <= 100 Then Exit Sub
For j = Asc("s") To Asc("y")
For i = 100 To n
If Cells(i, Chr(j)).Interior.ColorIndex = 10 Then Cells(9, Chr(j)).Interior.Color = 10: Exit For
Next
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024