你好!楼主的问题,函数公式确实想不到,楼主倒是可以尝试使用VBA程序处理一下。
(一)VBA程序代码如下:
Sub ChangeColor()
Dim i1, i2, i3, i4, i5
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
For i1 = 2 To 1000
If mysheet1.Cells(i1, 1) <> "" Then
For i2 = 2 To 1000
If mysheet1.Cells(i1, 2) <> "" Then
i3 = mysheet1.Cells(i2, 2).Find(mysheet1.Cells(i1, 1))
If i3 <> "" Then
mysheet1.Cells(i1, 1).Interior.Color = RGB(255, 128, 0)
mysheet1.Cells(i2, 2).Interior.Color = RGB(255, 128, 0)
End If
End If
Next
End If
Next
End Sub
(二)程序运行前后的结果如下: