Excel vba查找相同内容填充单元格颜色
1.表一B2内容+E2内容=新内容2.用新内容去查找表2(B2:K14)里面是否有与新内容相同的内容,填充其单元格为红色😍。3.用VBA,安键放在表一...
1.表一B2内容+E2内容=新内容
2.用新内容去查找表2(B2:K14)里面是否有与新内容相同的内容,填充其单元格为红色😍。
3.用VBA,安键放在表一 展开
2.用新内容去查找表2(B2:K14)里面是否有与新内容相同的内容,填充其单元格为红色😍。
3.用VBA,安键放在表一 展开
2个回答
展开全部
自己加按钮哈,
修改 Tem 为你的 表2
Sub programX()
Sheets("Tem").Range("b2:k14").Interior.Pattern = xlNone
NewValue = Cells(2, 2) + Cells(2, 5)
Dim rangex As Range
For Each rangex In Sheets("Tem").Range("b2:k14")
If rangex.Value = NewValue Then rangex.Interior.Color = vbRed
Next
End Sub
修改 Tem 为你的 表2
Sub programX()
Sheets("Tem").Range("b2:k14").Interior.Pattern = xlNone
NewValue = Cells(2, 2) + Cells(2, 5)
Dim rangex As Range
For Each rangex In Sheets("Tem").Range("b2:k14")
If rangex.Value = NewValue Then rangex.Interior.Color = vbRed
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |