If e.Col.Name = "第一列" Then
For Each s2 As String In {"测一", "测二", "测三", "测四", "测五"}
If e.Row("第一列") = e.Row(s2) Then
e.Style = "样式一"
Exit For
End If
Next
ElseIf e.Col.Name = "第二列" Then
For Each s2 As String In {"测一", "测二", "测三", "测四", "测五"}
If e.Row("第二列") = e.Row(s2) Then
e.Style = "样式一"
Exit For
End If
Next
……
End If
If e.Col.Name = "测一" Then
For Each s2 As String In {"第一列", "第二列", "第三列", "第四列", "第五列"}
If e.Row("第一列") = e.Row(s2) Then
e.Style = "样式一"
Exit For
Exit For
End If
Next
ElseIf e.Col.Name = "测二" Then
For Each s2 As String In {"第一列", "第二列", "第三列", "第四列", "第五列"}
If e.Row("测二") = e.Row(s2) Then
e.Style = "样式一"
Exit For
End If
Next
……
End If
加好友 
发短信
Post By：2023/5/19 10:50:00 [只看该作者]
