Sub s() a = [1:1].Find("英文描述").Column b = [1:1].Find("对外名称").Column n = Cells(Rows.Count, a).End(3).Row For i = 1 To n If Len(Cells(i, a).Text) > 240 Then Cells(i, a).Interior.Color = vbRed If Len(Cells(i, b).Text) > 240 Then Cells(i, b).Interior.Color = vbRed Next End Sub追问