相似的值在同一行中突出显示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