用EXCELL VBA编程，在表格1中第一行有很多名称，我要在第一行找出“英文描述”“对外名称”，

Question

用EXCELL VBA编程，在表格1中第一行有很多名称，我要在第一行找出“英文描述”“对外名称”，再这两名称对应的整列的单元格字符不能超过240个，超出就把单元格填充为红色，请大师们指导！

Answer 1

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追问

那表1中第一行的名称中有 “单位”，单位这整列的字符，要与表2第一列整列的字符匹配，如果表1中单位的值不在表2中，表1这格单元格的字符为红色

追答

这是另外一个问题了