求被包含的数据变色的代码

Ray1979

需要效果如图，如B列数据在左侧A列对应出现，则B列数据标红。
数据全为2位，以空格分隔。
请问用VBA如何实现？

Ray1979

数据行会不断增加

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&
   
    With [A2].CurrentRegion
        ar = .Value
        .Font.Color = 0
        For i = 1 To UBound(ar)
            If InStr(ar(i, 1), ar(i, 2)) Then .Cells(i, 2).Font.Color = vbRed
        Next i
    End With

    Beep
End Sub

gwjkkkkk

请参考。。。

fzxba

1. Sub test0() '也试一下
   
2.   Dim ar, i As Long, k As Long, s As String
   
3.   With Range("A1").CurrentRegion
   
4.     .Font.Color = vbBlack
   
5.     ar = .Value
   
6.   End With
   
7.   For i = 2 To UBound(ar)
   
8.     If InStr(ar(i, 1), ar(i, 2)) Then
   
9.       k = k + 1
   
10.       s = s & ",B" & i
    
11.     End If
    
12.     If k = 30 Then '满30个就变红
    
13.       Range(Mid(s, 2)).Font.Color = vbRed
    
14.       s = vbNullString
    
15.       k = 0
    
16.     End If
    
17.   Next
    
18.   If k Then Range(Mid(s, 2)).Font.Color = vbRed
    
19.   Beep
    
20. End Sub

复制代码