展开全部
选中区域后运行下面代码。
Sub 找812()
Dim Rng As Range, Rng1 As Range
Set Rng = Selection.Resize(Selection.Rows.Count - 2)
For Each Rng1 In Rng
If Rng1 = 8 And Rng1.Offset(1, 0) = 1 And Rng1.Offset(2, 0) = 2 Then
Rng1.Resize(3, 1).Interior.ColorIndex = 4
End If
Next Rng1
End Sub
Sub 找812()
Dim Rng As Range, Rng1 As Range
Set Rng = Selection.Resize(Selection.Rows.Count - 2)
For Each Rng1 In Rng
If Rng1 = 8 And Rng1.Offset(1, 0) = 1 And Rng1.Offset(2, 0) = 2 Then
Rng1.Resize(3, 1).Interior.ColorIndex = 4
End If
Next Rng1
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
第一列条件格式
步骤:第一个单元格添加条件格式:
=(and(countif(b:b,a2),countif(c:c,a2)) 设置格式字体红色
选中第一个单元格-----格式刷------刷第一列
步骤:第一个单元格添加条件格式:
=(and(countif(b:b,a2),countif(c:c,a2)) 设置格式字体红色
选中第一个单元格-----格式刷------刷第一列
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询