相似的值在同一行Excel vba中突出显示

Question

我有一个来自B2:AF7的Excel工作表数据。(6行31列数据(

我的需要是。。。如果用户输入三个值，那么B2列：AF7中相同行的类似值应该用颜色突出显示

值从B列开始。像这样的值表1:

B column
1919106 
1825168
1856294
2038838
1891278
1799495
till column AF7

任何解决方案。。。

Answer 1

对于这个问题，我使用Sheet1和黄色背景。

尝试：

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ImportValue As String
Dim i As Long
Dim RowNo As Long
If Not Intersect(Target, Range("$B$2:$AF$7")) Is Nothing Then
RowNo = Target.Row
ImportValue = Target.Value
For i = 2 To 32
If ImportValue <> "" And ImportValue = Sheet1.Cells(RowNo, i).Value Then
With Target.Interior
.Color = 65535
End With
With Sheet1.Cells(RowNo, i).Interior
.Color = 65535
End With
End If
Next i
End If
End Sub