'If e.Row("第七列") = e.Row("测一") Or e.Row("第七列") = e.Row("测二") Or e.Row("第七列") = e.Row("测三") Or e.Row("第七列") = e.Row("测四") Then
' e.Style = "样式四"
'End If
上面效果是整行标识，不是需求效果，需求以“第七列“为标准，从"测一", "测二", "测三", "测四", "测五", "测六", "测七"查找相同数据标识出？
下面代码，也没达到效果
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
加好友 
发短信
Post By：2023/5/26 12:16:00 [显示全部帖子]
