Question

Excel vba如何给有重复项的二单元填充颜色 1、第11列至第29列 2、同列最后

Excel vba如何给有重复项的二单元填充颜色
1、第11列至第29列
2、同列最后二个单元(这里称为单元A和单元B)
3、如果单元A里的内容与单元B里某一个字符相同时，将这二个单元填充青色
不相同，不填充颜色

Answer 1

Sub tst()
Application.ScreenUpdating = True
On Error Resume Next
Dim i%
For i = 11 To 29
 If Cells(65536, i).End(xlUp).Value Like "*" & Cells(65536, i).End(xlUp).Offset(-1, 0).Value & "*" Then
  Cells(65536, i).End(xlUp).Interior.ColorIndex = 8
  Cells(65536, i).End(xlUp).Offset(-1, 0).Interior.ColorIndex = 8
 End If
 Next
Application.ScreenUpdating = False
End Sub

追问

不是内容完全相同
是只要有相同就可以
例：单元A=上海时是 单元B=蝇加另海
二个单元都有相同字符出现就填充颜色

Answer 2

Sub xx()
n = [d65536].End(3).Row
If n < 20 Then Exit Sub
x = n - 19
For i = n - 18 To n
If Cells(x, 4) < Cells(i, 4) Then x = i
Next
Cells(x, 4).Interior.Color = vbYellow
Cells(x, 2).Interior.Color = vbRed
End Sub