求VBA代码，将符合条件的单元格填充红色

yuyaonian · 发表于 2018-8-9 14:27

将A列中，包含C列数据的单元格填充为红色。
求VBA代码
图片在二楼

yuyaonian · 发表于 2018-8-9 14:28

图片和表格附件

yuyaonian · 发表于 2018-8-9 14:33

表格无法上传

烦请哪位能写下代码，谢谢！

jiminyanyan · 发表于 2018-8-9 21:23

yuyaonian 发表于 2018-8-9 14:33
表格无法上传

烦请哪位能写下代码，谢谢！

上个附件。。。

xiaoxia520 · 发表于 2018-8-9 22:09

Sub sssss()
Dim rng As Range, la&, lc&, target As Range, j&, frng$, trng As Range, firstr As Range
la = Cells(Rows.Count, 1).End(xlUp).Row
lc = Cells(Rows.Count, 3).End(xlUp).Row
Set rng = Range(Cells(1, 1), Cells(la, 1))
With rng
rng.Select
For j = 1 To lc
num = Cells(j, 3)
Debug.Print "?" & num & ""
Set target = .Find("?" & num & "", , , xlPart)
If Not target Is Nothing Then
frng = target.Address
Set firstr = target
End If
Do
Set target = .FindNext(target)
If frng <> target.Address Then
Set trng = Union(firstr, target)
Else
Set trng = firstr
Exit Do
End If
Loop
trng.Interior.Color = vbRed
Next j
End With
End Sub
新手上路

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 求VBA代码，将符合条件的单元格填充红色