Public Function Color_Red(Range1 As Range, Range2 As Range) If Range1.Font.Color = vbRed And Range2.Font.Color vbRed Then Color_Red = 甲超过范围 If Range1.Font.Color = vbRed And Range2.Font.Color = vbRed Then Color_Red = 甲、乙超过范围 If Range1.Font.Color vbRed Then Color_Red = End Function